NPS  54-86-0002PR 


NAVAL  POSTGRADUATE  SCHOOL 

Monterey,  California 


(U)  RUNTIME  CONVERSION  AND  BENCHMARKS  FOR  THE 
FAMIS  DECISION  SUPPORT  SYSTEM 


by 
NORMAN  LYONS 

August  1986 


Approved  for  public  release:   distribution  unlimited, 
Prepared  for:   National  Communications  System. 
Arlington,  VA  22204 


FedDocs 
D  208. 14/2 
NPS- 54-8  6-0002PR 


- 


NAVAL  POSTGRADUATE  SCHOOL 
Monterey,  California 


RADM.  R.  C.  Austin 
Superintendent 


David  A .  Schrady 
Provost 


The  research  summarized  herein  was  sponsored  by  Navy  Personnel 
Research  and  Development  Center. 

Reproduction  of  all  or  part  of  this  report  is  authorized. 


This  report  was  prepared  by: 


.J 


riJRl  T  Y    UASV^CAFiO^  OF    THiS    PAut 


REPORT  DOCUMENTATION  PAGE 


. 





i    REPORT  SECURITY  CLASSIFICATION 

unclassified 


lb    RESTRICTIVE    MARKINGS 


SECURITY  CLASSIFICATION  AUTHORITY 


)    DECLASSIFICATION /DOWNGRADING  SCHEDULE 


3     DISTRIBUTION/ AVAILABILITY  OF   REPORT 

Approved  for  public  release,  distribution 
unlimited 


PERFORMING  ORGANIZATION  REPORT  NUMBER(S) 

NPS   54-86-002PR 


5    MONITORING  ORGANIZATION   REPORT   NUM8ER(S) 


NAME  OF  PERFORMING  ORGANIZATION 

Naval  Postgraduate  School 


6b    OFFICE  SYMBOL 
(//  applicable) 


7a    NAME  OF   MONITORING  ORGANIZATION 

National  Communications  System 


ADDRESS  (C/fy.  State,  and  ZIP  Code) 


Monterey,    CA      93943 


7b    ADDRESS  (C/fy.  State,  and  ZIP  Code) 

8th  Street  and  South  Courthouse  Road 
Arlington,  VA  22204 


NAME  OF  FUNDING/SPONSORING 
ORGANIZATION 

NCS 


8b    OFFICE  SYMBOL 
{If  applicable) 


9    PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 


MIPR Hnnm-A-inn« 


ADORESS  (City.  State,  and  ZIP  Code) 

8th  Street  and  South  Courthouse  Road 
Arlington,  VA  22204 


10    SOURCE   OF   FUNDING   NUMBERS 


PROGRAM 
ELEMENT  NO 


PROJECT 
NO 


TASK 
NO 


WORK   UNIT 
ACCESSION   NO 


TiTlE  (include  Security  Classification) 

Runtime   Conversion   &   Benchmarks    for    the    FAMIS   Decision   Support    System 


PERSONAL  AUTHOR(S) 
Normal    R.    Lvons 


TYPE  OF  REPORT 

tech   report 


13b    TIME  COVERED 
FROM    Jan    86       TO     Feb    86 


14    DATE  OF  REPORT    (Year.  Month.  Day) 
February   86 


15    PAGE  COUNT 
111 


5    SUPPLEMENTARY  NOTATION 


COSATl  CODES 


FIELD 


GROUP 


SUBGROUP 


18    SUBJECT  TERMS  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 


9  ABSTRACT  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

The  prototype  Fly  Away  Management  Information  System  (FAMIS)  works  too  slowly  to  be  useful 
This  report  outlines  efforts  to  speed  the  system  up  and  compares  each  technique.   This 
report  indentifies  approaches  to  producing  a  fast  interim  version  of  the  FAMIS  system. 


0    DISTRIBUTION /AVAILABILITY  OF  ABSTRACT 
^OuNCLASSlFiED/UNLIMlTED       □  SAME  AS   RPT  D  DTlC   USERS 


21    ABSTRACT  SECURITY  CLASSIFICATION 

unclassified 


NAME  OF  RESPONSIBLE  INDIVIDUAL 

Norman  R.  Lyons 


22o  TELEPHONE  (include  Area  Code) 
(408)    646-2666 


22c    OFFICE   SYMBOL 


•DFORM  1473.  84  mar 


83  APR  edition  may  be  used  until  exnausted 
All  other  editions  are  obsolete 


SECURITY  CLASSIFICATION  OF  TH'S  PAGE 


(U)  RUNTIME  CONVERSION  AND  BENCHMARKS  EOR  THE 
FAMIS  DECISION  SUPPORT  SYSTEM 


by 


Norman  Lyons 


Administrative  Sciences  Department 

Naval  Postgraduate  School 

Monterey,  California  93943 

January  1986 


Summary 

The  prototype  Fly  Away  Management  Information  System  (FAMIS)  works  too 
slowly  to  be  useful.  This  report  outlines  efforts  to  speed  the  system  up  and  compares 
each  technique. 

Problem 

The  current  version  of  the  FAMIS  system  runs  in  interpreted  BASIC  on  the  Otro- 
na  microcomputer  system.  Because  the  system  is  interpreted  and  implemented  on  a 
slow  floppy  disk  based  system,  it  is  too  slow  to  be  workable. 

Objective 

This  report  identifies  approaches  to  producing  a  fast  interim  version  of  the  FAMIS 

system. 

Approach 

Three  approaches  were  used  these  included: 

1.  Modifying  and  compiling  the  system. 

2.  Implementing  the  system  on  a  hard  disk. 

3.  Moving  the  system  to  a  computer  with  a  faster  processor. 
Results  and  Conclusions 

The  changes  resulted  in  an  improvement  in  speed  of  better  than  a  factor  of  five. 
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The  current  version  of  the  FAMIS  system  runs  in  interpreted  BASIC  on  the  Otro- 
na  microcomputer  system.  Because  the  system  is  interpreted,  it  runs  very  slowly.  One 
of  the  research  tasks  in  the  FAMIS  project,  was  to  produce  a  compiled  version  of  the 
FAMIS  system.  This  proved  to  be  a  more  difficult  task  than  simply  compiling  the 
available  code. 

The  first  approach  taken  to  this  problem  involved  condensing  all  the  routines  into 
a  single  BASIC  program,  then  trying  to  compile  them  as  a  single  program.  This  ap- 
proach did  not  work,  because  BASIC  compilers  available  are  restricted  to  blocks  of 
code  no  larger  than  64K.  We  did  obtain  one  BASIC  compiler,  the  BetterBASIC  com- 
piler that  was  able  to  handle  up  640K  blocks  of  code.  This  compiler,  however,  was  not 
compatible  with  the  Microsoft  BASIC  that  we  were  using. 

The  next  step  was  to  try  compiling  the  individual  routines  separately.  It  turned 
out  that  this  was  not  possible  either.  The  main  routine  uses  a  CHAIN  MERGE  com- 
mand to  transfer  control  to  the  various  modules.  The  CHAIN  MERGE  command  re- 
quires you  to  keep  a  core  module  in  memory  at  all  times.  The  subsidiary  modules  are 
then  loaded  into  an  overlay  area  under  the  control  of  the  core  module.  In  interpreted 
BASIC,  this  is  an  efficient  way  to  handle  large  programs.  To  compiled  BASIC,  it  is 
not  possible  to  do  this.  The  CHAIN  MERGE  command  does  not  exist  in  compiled 
BASIC. 

This  meant  that  a  major  problem,  then,  was  to  rewrite  the  system  so  that  it  could 
work  without  the  CHAIN  MERGE.  This  was  done  by  adding  a  small  core  module  to 
each  of  the  subsidiary  routines  that  performed  the  graphic  functions  that  were  previ- 
ously done  in  the  module  that  controlled  the  CHAIN  MERGEs.  This  makes  each  of 
the  subsidiary  routines  somewhat  larger  than  they  were  in  the  original  program.  How- 
ever, this  turns  out  to  be  small  price  to  pay  for  the  increase  speed  offered  by  compiled 
BASIC. 

In  addition,  there  were  other  design  goals  for  the  compiled  BASIC  system.  A  ma- 
jor design  goal  was  to  create  a  system  that  could  be  used  on  both  a  hard  disk  and 
floppy  disk  versions  of  FAMIS.  It  is  undesirable  to  have  to  separate  programs  for  the 
FAMIS.  With  two  separate  programs,  maintenance  becomes  very  nearly  impossible. 
It  is  too  hard  to  control  two  versions  of  the  same  program  in  making  changes.  It  is 
virtually  inevitable  that  the  two  versions  of  the  programs  will  diverge. 

When  running  a  hard  disk  system,  it  is  far  more  convenient  to  have  both  programs 
and  data  files  on  the  same  unit.    In  this  way,  the  computer  does  not  keep  interrupting 
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the  user  asking  for  the  installation  of  a  floppy  disk.  This  constant  querying  of  the  user 
for  the  proper  disk  is  necessary  in  the  floppy  disk  version  of  FAMIS.  There  is  not 
enough  storage  on  a  single  floppy  disk  to  store  all  of  the  information  that  FAMIS 
must  coordinate. 

The  rewritten  version  of  FAMIS  is  usable  on  both  hard  disk  and  floppy  disk  sys- 
tems. The  new  programs  query  the  disk  drive  assignment  to  determine  whether  a  hard 
drive  or  floppy  drive  is  being  used.  In  rewriting  the  new  version  for  the  compiled  sys- 
tem, we  went  through  and  we  added  a  drive  qualifier  to  every  file  command  in  the  en- 
tire program.  In  the  original  program,  the  system  automatically  to  its  data  from  the  B 
drive. 

In  the  new  version,  the  system  automatically  looks  to  whatever  drive  the  user  has 
selected  at  the  beginning  of  the  program.  The  data  is  then  taken  from  that  drive.  If 
the  drive  is  a  floppy  drive,  the  program  asks  for  the  user  to  mount  the  correct  disk  at 
the  break  points  they  were  existing  in  the  original  program.  If  the  drive  is  a  hard  drive, 
then  the  no  queries  are  generated.  The  resulting  system  is  small  enough  that  it  may  be 
used  on  either  a  floppy  or  hard  disk  system. 

There  are  still  a  number  of  errors  in  the  FAMIS  code.  These  existed  in  the. inter- 
preted version,  and  they  have  been  carried  over  into  the  compiled  version.  There  is  no 
reason  to  spend  a  great  deal  of  time  in  correcting  these  errors  in  FAMIS.  FAMIS  is 
nearing  the  end  of  its  life  cycle,  and  these  errors  may  as  well  stay  as  long  as  they  are 
not  too  much  of  a  problem. 

Some  of  the  errors  are  a  result  of  different  programming  styles  used  in  BASIC.  An 
example  is  the  code  that  test  uninitialized  variables.  This  code  is  in  the  core  routine 
and  is  placed  in  such  a  way  that  it  does  not  cause  logical  problems.  However,  it  is  in- 
dicative of  a  sloppy  approach  to  programming  that  one  does  not  expect  to  find  in  pro- 
fessional code. 

In  addition,  there  are  undeclared  arrays  scattered  throughout  the  program.  This  is 
something  that  BASIC  allows,  the  good  programming  practice  suggests  that  this 
should  not  be  done.  Besides  these,  there  are  several  error  finishes  and  caused  to  no- 
nexistent routines.  These  existed  in  the  interpreted  version,  and  they  are  still  there  in 
the  compiled  version. 

In  testing  the  new  version  of  FAMIS,  several  benchmarks  were  run  to  provide 
comparisons.  Results  of  these  comparisons  are  given  in  Figure  1.  There  are  three 
variables  involved  in  these  comparisons.  The  first  is  type  of  BASIC  used,  either  inter- 
preted or  compiled.  The  second  is  whether  the  system  was  a  floppy  disk  or  hard  disk 
system.   And  the  third  variable  is  whether  a  fast  or  slow  processor  was  used. 

The  slow  processor  is  an  ordinary  IBM  PC  Intel  8088  based  system  operating  at 
4.77  megahertz.  This  is  the  same  system  that  was  used  in  Otrona.  The  fast  processor 
used  in  this  test  was  an    80186  based  system,  an  Orchid  PC  Turbo  card.    This  system 


Case  1 

Interpreted  Basic 

Floppy  Disk 

Slow  Processor  -  4.77  megahertz  8088 

Time  Test:   216  sec.  Factor:    5.54 

Case  2 

Interpreted  Basic 

Hard  Disk 

Slow  Processor  -  4.77  megahertz  8088 

Time  Test:    187  sec.  Factor:   4.79 


Case  3 
Interpreted  Basic 
Floppy  Disk 
Fast  Processor  -  8  megahertz  80186 

Time  Test:    125  sec.  Factor:    3.21 


Case  4 

Interpreted  Basic 

Hard  Disk 

Fast  Processor  -  8  megahertz  80186 

Time  Test:    105  sec.  Factor:    2.69 


Case  5 

Compiled  Basic 

Floppy  Disk 

Slow  Processor  -  4.77  megahertz  8088 

Time  Test:   91  sec.  Factor:    2.33 


Case  6 
Compiled  Basic 


Hard  Disk 

Slow  Processor  -  4.77  megahertz  8088 

Time  Test:    68  sec.  Factor:    1.74 


Case  7 

Compiled  Basic 

Floppy  Disk 

Fast  Processor  -  8  megahertz  80186 

Time  Test:   62  sec.  Factor:    1.59 

Case  8 

Compiled  Basic 

Hard  Disk 

Fast  Processor  -  8  megahertz  80186 

Time  Test:    39  sec.  Factor:    1.00 


Figure  1:    Results  of  the  Benchmark  Tests 


operates  at  8  megahertz  and  uses  a  disk  caching  system  and  is  roughly  comparable  to 
an  IBM  PC- AT  in  speed. 

The  tests  presented  in  Figure  1  consisted  of  running  the  FAMIS  system  to  give  a 
network  status.  The  run  started  with  the  initial  loading  of  the  system  in  the  configura- 
tion being  tested.  We  then  went  to  the  initial  banner  logo,  the  first  menu,  and  then  to 
the  network  status  menu.  In  the  network  status  menu  we  selected  DOD  and  did  a  sta- 
tus on  the  AUTODIN  system  at  the  USA  level.  This  caused  to  generation  of  a  United 
States  map  and  the  sites  of  the  AUTODIN  system.  After  that,  we  asked  for  a  status 
listing  for  the  systems  nodes.  This  concluded  the  test  was  concluded  and  the  time  re- 
quired to  arrive  at  this  point  was  recorded. 

The  cases  in  Figure  1  are  arranged  in  descending  order  of  time  required.  Case  1 
presents  the  current  system.  This  involves  interpreted  BASIC,  a  floppy  disk  and  a  slow 
processor.  Two  hundred  sixteen  seconds  were  required  to  run  the  demo  program.  This 
is  a  factor  of  better  than  five  and  a  half  times  slower  than  the  fastest  configuration 
tested. 


Case  2  uses  interpreted  BASIC  that  moves  the  system  to  a  hard  disk.  We  are  still 
operating  on  a  slow  processor.  This  paired  a  bit  of  time  of,  only  a  187  seconds  were 
required  to  run  the  demo.  Case  3  still  involves  inteprcted  BASIC  using  a  lloppy  disk 
system  but  not  we've  moved  to  a  fast  processor.  This  would  the  equivalent  to  running 
the  system  on  a  AT  with  a  floppy  disk  based  system.  This  time  a  125  seconds  were  re- 
quired for  the  demo.  The  next  case  uses  interpreted  BASIC  hard  disk  and  fast  proces- 
sor.   In  this  configuration,  105  seconds  are  required  for  the  demo. 

The  most  dramatic  improvements  in  time  seem  to  come  from  compiling  the  basic 
version  of  the  FA  MIS  system.  The  last  four  cases  in  Figure  one  all  use  compiled 
BASIC.  Case  5  used  compiled  BASIC,  floppy  disk  and  slow  processor  and  reaches  the 
conclusion  of  the  test  in  91  seconds.  Case  6  used  compiled  BASIC,  a  hard  disk,  and 
slow  processor  and  the  tests  concludes  in  68  seconds.  Case  7  uses  compiled  BASIC, 
floppy  disk,  and  fast  processor  and  the  test  concludes  in  62  seconds.  Finally,  Case  8 
used  compiled  BASIC,  hard  disk  and  the  fast  processor  and  reaches  a  conclusion  in  39 
seconds. 

A  significant  portion  of  this  time  is  used  to  generate  the  United  States  map.  If  we 
were  to  use  the  fast  load  graphics  it  would  use  the  C  programs,  then  this  39  seconds 
could  probably  be  cut  in  half.  A  significant  portion  of  the  remaining  time  then  is  op- 
erator reaction  time,  and  there  is  no  way  to  cut  this  down. 

The  use  of  compiled  BASIC  offers  a  significant  increase  in  speed  to  the  current 
FAMIS  system.  Case  5  represents  the  Otrona  system  after  the  use  of  compiled 
BASIC.  Its  speed  is  91  seconds  to  reach  the  conclusion  of  the  demo  program.  This  is 
about  2.4  times  faster  than  the  current  system.  The  current  system  is  unacceptably 
slow.  This  one  is  at  least  somewhat  better.  If  a  hard  disk  is  added  to  the  Otronas  the 
figures  are  even  better.  A  hard  disk  in  compiled  BASIC  brings  the  system  speed  up  to 
nearly  3.2  times  faster.  This  should  make  the  Otrona  demos  quite  a  bit  more  impres- 
sive. 


Appendix  A 
NCS.BAS  Listing 


01  COMMON  DRV$ 

10  SCREEN  0,0,0 

20  DIM  CODES(100),S(100),KOUNT(100) 

30  DEFDBL  N,M,C: LASTFILE$="   " 

31  CLS 

32  LOCATE  10,20 

33  PRINT  "Set  the  Caps  Lock  Key  On"; 

34  LOCATE  12,20 

35  PRINT  "Which  drive  contains  your  data"; 

36  INPUT  DRV$ 

37  IF  DRV$<"A"  OR  DRV$>"D"  GOTO  31 

38  DRV$  =  LEFT$(DRV$,1)+":" 

40  RFM*  ******  *************************** 


Program  Name:  NCS 

Revision:  For  16-Bit     * 

Date  :  January  1984   * 

Recoded  By:  Deborah  Jackson* 


50  REM* 
60  REM* 
70  REM* 
80  REM* 
90  REM* 
100  REM*  * 

i in  dcm********************************* 

120  N$="L0G0" 

130  CLS 

140  GOSUB  1460 

150  TES=1 

160  LOCATE  1,13 

170  PRINV'Current  Time  ";TIME$ 

180   LOCATE  1,40 

190  PRINT"Today's  Date  ";DATE$ 

210  INPUT'ENTER  CODE";R$ 

220  IF  R$="T"  GOTO  160 

230  IF  R$="9"  GOTO  250 

240  GOTO  210 

250  PAD$="         Main  Menu  " 

260  GOSUB  650 

270  TES=0 

280  GOSUB  580 

290  RFM**************************************************** 


6- 


300  PRINT 

310  PRINT" 

1.  P.  0.  C.  Lists 

320  PRINT" 

2.  Emergency  Activation  Procedures  " 

330  PRINT" 

3.  Network  Status  Monitoring       " 

340  PRINT" 

4.  Damage  Assessment             " 

350  PRINT" 

5.  Resolution  of  Claim            " 

360  PRINT" 

6.  Zooming                     " 

370  PRINT" 

7.  Word  Processing  (WordStar)      " 

380  PRINT" 

8.  NSC  Processing  Module          " 

390  PRINT" 

9.  QUIT                       " 

400  COLOR 

14,0,0: PRINT 

410  PRINT" 

ENTER  OPTION  DESIRED"; 

420  INPUT  ' 

r 

430  IF  T=6 

OR  T=7  THEN  460 

440  IF  T=LASTT  THEN  4000 

450  LASTT=" 

r 

460  PRINT 

470  WIDTH  I 

30 

480  IF  T=l 

THEN  CHAIN  "NCSPOC" 

490  IF  T=2 

THEN  CHAIN  "NCSACT" 

500  IF  T=3 

THEN  CHAIN  "NCSSTAT" 

510  IF  T=4 

THEN  CHAIN  "NCSDAM" 

520  IF  T=5 

THEN  CHAIN  "NCSCLAIM" 

530  IF  T=6 

THEN  RUN  "NCSZOOM" 

540  IF  T=7 

THEN  3400 

550  IF  T=8 

THEN  CHAIN  "NCSNSC" 

560  IF  T=9 

THEN  SYSTEM 

570  GOTO  250 

580  LOCATE 

10,4: PRINT"  DATE  ":  LOCATE  10,29: PRINT" 

600  LOCATE 

11,2 

610  PRINT  [ 

3ATE$ 

620  LOCATE 

11,28 

630  PRINT  ' 

fIME$ 

640  RETURN 

ccn  dcm*********************************** ****** ****** ***** ******* ** 

660  REM* 

670  REM*   This  Subroutine  produces  the  logo  box  for  the  menus.    * 

680  REM* 

690  dcm***** ************************************ ******** ** ********** 

700  SCREEN  0: WIDTH  40:  CLS 

710  PRINT 

720  COLOR  14,1,0 

730  PRINT  CHR$(201); 

740  FOR  1=1  TO  36 

750  PRINT  CHR$(205); 

760  NEXT  I 

770  PRINT  CHR$(187) 


780 

PRINT 

CHR$(186); 

790 

FOR  1= 

=1  TO  36 

800 

PRINT' 

i  ii. 

> 

810 

NEXT  ] 

820 

PRINT 

CHR$(186) 

830 

PRINT 

CHR$(186); 

840 

PRINT' 

1     NCS  EMERGENCY  TELECOMM. 

850 

PRINT 

CHR$(186) 

860 

PRINT 

CHR$(186); 

870 

PRINT' 

1        MICRO  SUBSYSTEM 

880 

PRINT 

CHR$(186) 

890 

PRINT 

CHR$(186); 

900 

PRINT 

PAD$;:  PRINT  CHR$(186) 

910 

PRINT 

CHR$(186); 

920 

FOR  1= 

=1  TO  36 

930 

PRINT' 

i  ii. 

> 

940 

NEXT  1 

950 

PRINT 

CHR$(186) 

960 

PRINT 

CHR$(200); 

970 

FOR  1= 

=1  TO  36 

980 

PRINT 

CHR$(205); 

990 

NEXT  ] 

100C 

1  PRINT 

:  CHR$(188) 

101C 

1  PAD$= 

.ii   ii 

102C 

1  COLOF 

t  14,1,0 

103C 

1  RETURN 

104C 

1  CLS:  WIDTH  80 

105C 

1  PRINT 

""THIS  OPTION  IS  NOT  YET  AVAILABLE. 

106C 

1  INPUT 

'"PRESS  RETURN  FOR  MENU.  ";RET$ 

107C 

1  CLS 

108C 

1  RETURN 

II. 


1090  RPM******** FT  I  F  ppAn************************** 

1100  SCREEN  0: CLS: WIDTH  80 

1110  IF  SET=0  THEN  1320 

1120  1=0 

1130  OPEN  "I",#1,X$ 

1140  IF  EOF(l)  THEN  1280 

1150  INPUT  #1,K$,A$ 

1160  IF  K$=PASS$  THEN  1180 

1170  GOTO  1140 

1180  1=1+1 

1190  IF  I>=20  THEN  1220 

1200  PRINT  A$ 

1210  GOTO  1140 

1220  PRINT 

1230  INPUT"ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT"; C$ 

1240  IF  C$="Q"  THEN  1280 


1250  PRINT 

1260  1=0 

1270  GOTO  1140 

1280  CLOSE 

1290  PRINT 

1300  INPUT"ENTER  RETURN  TO  CONTINUE  ";R$ 

1310  GOTO  1450 

1320  OPEN  "I",#1,X$ 

1330  FOR  1=1  TO  20 

1340  LINE  INPUT  #1,A$ 

1350  IF  EOF(l)  THEN  1420 

1360  PRINT  A$ 

1370  NEXT  I 

1380  PRINT 

1390  INPUT"ENTER  C  TO  CONTINUE, Q  TO  QUIT";B$ 

1400  IF  B$<>"C"  AND  B$<>"Q"  THEN  1390 

1410  IF  B$="C"  THEN  1330 

1420  PRINT 

1430  INPUT"  PRESS  RETURN  WHEN  READY"; M$ 

1440  CLOSE  #1 

1450  RETURN 

1460  RFM************  FT  I  f    p|  f)T**************** 

1470  WIDTH  80: SCREEN  2: WINDOW  SCREEN  (0,0)-(640,250) 

1480  OPEN  "I\#1,N$ 

1490  IF  EOF(l)  THEN  2510 


1500 

INPUT  #1,C,X,Y,Z, 

S,E 

1510 

IF  C=0  THEN  1760 

REM 

**P0INT 

1520 

IF  C=l  THEN  1780 

REM 

**LINE 

1530 

IF  C=2  THEN  1800 

REM 

**CIRCLE 

1540 

IF  C=3  THEN  1820 

REM 

**CLEAR  SCREEN 

1550 

IF  C=4  THEN  1840 

REM 

**CLEAR  POINT 

1560 

IF  C=5  THEN  1860 

REM 

**CLEAR  CENTER  OF  CIRCLE 

1570 

IF  C=6  THEN  1880 

REM 

**BOX(UPPER  LEFT  CORNER) 

1580 

IF  C=7  THEN  1910 

REM 

**BOX  (LOWER  RIGHT  CORNER) 

1590 

IF  C=8  THEN  1930 

REM 

**SATELLITE 

1600 

IF  C=9  THEN  1990 

REM 

**STAR 

1610 

IF  C=10  THEN  2020 

REM 

**EARTH  STATION 

1620 

IF  C=ll  THEN  2050 

REM 

**CITY  (BOX) 

1630  IF  C=12  THEN  2070  REM  **REM0VE  CENTER  OF  CIRCLE 

1640  IF  C=13  THEN  2090  REM  '"TELEPHONE  SET 

1650  IF  C=14  THEN  2120  REM  **SET  UP  BLOCK  FILLER 

1660  IF  C=15  THEN  2140  REM  **CREATES  A  FILLED  BLOCK 

1670  IF  C=16  THEN  2160  REM  **CREATES  A  TRIANGLE 

1680  IF  C=17  THEN  2200  REM  **CREATES  A  BIG  TRIANGLE 

1690  IF  C=18  THEN  2260  REM  **CREATES  A  DIAMOND 

1700  IF  C=19  THEN  2320  REM  **CREATES  A  LARGE  BOX 

1710  IF  C=20  THEN  2340  REM  **WISHB0NE 
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1720 

IF  C= 

=21  THEN 

2410 

REM  **ASTERISK 

1730 

IF  O 

=22  THEN 

2460 

REM  **AN 

X 

1740 

IF  C= 

=23  THEN 

2490 

REM  **A  DASHED 

LINE 

1750 

GOTO 

1490 

1760 

PSET 

(X,Y) 

1770 

GOTO 

1490 

1780 

LINE 

"(X,Y) 

1790 

GOTO 

1490 

1800 

CIRCLE(X,Y),/ 

:,,s,e 

:, 13/32 

1810 

GOTO 

1490 

1820 

CLS 

1830 

GOTO 

1490 

1840 

CLS 

1850 

GOTO 

1490 

1860 

CLS 

1870 

GOTO 

1490 

1880 

X1=X 

1890 

Y1=Y 

1900 

GOTO 

1490 

1910 

LINE 

(XI, Yl)- 

•(X,Y) 

,,B 

1920 

GOTO 

1490 

1930 

CIRCLE  (X,Y), 

,10, ,0 

',6.28,1/2 

1940 

LINE 

(x-20,y; 

|-(X-10,Y) 

1950 

LINE 

(X,Y-5)- 

-(X,Y- 

10) 

1960 

LINE 

(x+io,y; 

>-(X+20,Y) 

1970 

LINE 

(X,Y+5)- 

-(X,Y+ 

10) 

1980 

GOTO 

1490 

1990 

LINE 

(X.Y-2)- 

■(X-4, 

Y+2):  LINE 

-(X+4 

•,Y-1) 

2000 

LINE 

(X.Y-2)- 

■(X+4, 

Y+2): LINE 

-(X-4 

-,Y-1):  LINE 

-(X+4 

2010 

GOTO 

1490 

2020 

LINE 

(X,Y)-(> 

(+10, Y 

-10):  LINE 

-(X+20, Y):  LINE  • 

"(X,Y) 

2030 

CIRCLE  (X+20, 

,Y-15) 

,14, ,2. 36, 

5.5 

2040 

GOTO 

1490 

2050 

LINE 

(X-2.Y-: 

D-(X+ 

2,Y+1),,B 

2060 

GOTO 

1490 

2070 

CLS 

2080 

GOTO 

1490 

2090 

LINE 

(X,Y)-() 

(+12, Y 

): LINE  -(X+6.Y- 

■6):  LINE  -(X, 

2100 

CIRCLE  (X+6,Y-6),6 

i,  ,0,3.  14 

2110 

GOTO 

1490 

2120 

PAINT  (X,Y),: 

L 

2130 

GOTO 

1490 

2140 

LINE 

(XI, Yl)- 

■(X,Y) 

,,B 

2150 

GOTO 

1490 

2160 

LINE 

(X-2,Y)- 

•(X+2, 

Y) 

2170 

LINE 

(X-4.Y+: 

L)-(Xt 

4.Y+1) 

2180 

PSET 

(X,Y-1) 
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2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 


GOTO  1490 


(X,Y 
(X-2 
(X-4 
(X-6 
(X-8 
1490 
(X,Y 
(X-2 
(X+2 
(X,Y 
(X,Y 
1490 
(X-4 
1490 
(X,Y 
(X,Y 
(X,Y 
(X-2 
(X-4 
(X+4 
1490 
(X+4 
(X-4 
(X-4 
(X,Y 
1490 
(X+4 
(X-4 
1490 
(X,Y 
1490 


-2) 

,Y-1)-(X+2,Y-1) 

,Y)-(X+4,Y) 

,Y+1)-(X+6,Y+1) 

,Y+2)-(X+8,Y+2) 

) 

,Y) 
,Y) 
-1) 

,Y-2)-(X+4,Y+2),,B 

-2) 

-1) 

) 

,Y+1)-(X+2,Y+1) 

,Y+2) 

,Y+2) 

,Y-2)-(X-4,Y+2) 
,Y-2)-(X+4,Y+2) 
,Y)-(X+4,Y) 
+2)-(X,Y-2) 

,Y-2)-(X-4,Y+2) 
,Y-2)-(X+4,Y+2) 

), ,  ,50. 386 


PSET 

LINE 

LINE 

LINE 

LINE 

GOTO 

PSET 

PSET 

PSET 

PSET 

PSET 

GOTO 

LINE 

GOTO 

PSET 

PSET 

PSET 

LINE 

PSET 

PSET 

GOTO 

LINE 

LINE 

LINE 

LINE 

GOTO 

LINE 

LINE 

GOTO 

LINE- 

GOTO 

CLOSE 

RETURN 

DCM******** ***** [AT /I QMQ****** ****** ******* 

REM  CLS 

REGION=R 

SET=0 

OPEN  "I",#l, "BOUNDARY" 

IF  EOF(l)  THEN  GOTO  2610 

INPUT  #1,LATD,LATU,L0NR,L0NL,REG 

IF  REGI0N<>REG  THEN  2580 

CLOSE  #1 

IF  LAT>LATU  OR  LAT<LATD  THEN  2650 

IF  LON>LONL  OR  LON<LONR  THEN  2650 

GOTO  2680 

IF  REGION>10  THEN  3380 
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2660  REGI0N=R+(R*10) 

2670  GOTO  2570 

2680  OPEN  "I",#2,"LATFILE" 

2690  LA1=0 

2700  IF  E0F(2)  THEN  2810 

2710  INPUT  #2,  LA,  YVAL,REG 

2720  IF  REGION<>REG  THEN  2700 

2730  IF  LAT<=LA1  AND  LAT>=LA  THEN  2770 

2740  LA1=LA 

2750  YVAL1=YVAL 

2760  GOTO  2700 

2770  YL0W=YVAL 

2780  YHI=YVAL1 

2790   LATL0W=LA 

2800   LATHI=LA1 

2810  CLOSE  #2 

2820  OPEN  "I",#1,"L0NFILE" 

2830  L0N1=0 

2840  IF  E0F(1)  THEN  2920 

2850  INPUT  #1,L0,C1,C2,REG 

2860  IF  REGIONoREG  THEN  2840 

2870  IF  L0N<=L0N1  AND  L0N>=L0  THEN  2920 

2880  L0N1=L0 

2890  C11=C1 

2900  C21=C2 

2910  GOTO  2840 

2920  CLOSE  #1 

2930  IF  R=0  THEN  3070 

2940  XLEFTU=YHI/C11+C21 

2950  XLEFTD=YL0W/C11+C21 

2960  XRITEU=YHI/C1+C2 

2970  XRITED=YL0W/C1+C2 

2980  L1=XRITEU-XLEFTU 

2990  L2=XRITED-XLEFTD 

3000  G=(L0N1-L0N)/(L0N1-L0) 

3010  XL=G*L2+XLEFTD 

3020  XU=G*L1+XLEFTU 

3030  D=(LAT-LATL0W)/(LATHI-LATL0W) 

3040  XD=CINT(XL-D*(XL-XU)) 

3050  YD=CINT(D*(YHI-YL0W)+YL0W) 

3060  GOTO  3390 

3070  RAD(1)=YL0W 

3080  RAD(2)=YHI 

3090  C1(1)=C11 

3100  C2(1)=C21 

3110  C1(2)=C1 

3120  C2(2)=C2 
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3130  FOR  1=1  TO  2 

3140  K=0 

3150  IF  1=1  THEN  S=l 

3160  IF  1=2  THEN  S=3 

3170  FOR  J=S  TO  S+l 

3180  K=K+1 

3190  A=1/(C1(K)   2)+l 

3200  B=2*(174-C2(K))/C1(K)+2*514 

3210  C=(174-C2(K))     2-RAD(I)    2+514  2 

3220  Y1=(B+SQR(B  2-4*A*C))/(2*A) 

3230  Y2=(B-SQR(B  2-4*A*C))/(2*A) 

3240  IF  Yl>235  THEN  Y(J)=Y2 

3250  IF  Yl<=235  THEN  Y(J)=Y1 

3260  X(J)=Y(J)/C1(K)+C2(K) 

3270  NEXT  J 

3280  NEXT  I 

3290  DVAL=(L0N1-L0N)/(L0N1-L0) 

3300  XL=DVAL*(X(2)-X(1))+X(1) 

3310  YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320  XU=DVAL*(X(4)-X(3))+X(3) 

3330  YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340  SVAL=(LAT-LATLOW)/(LATHI-LATLOW) 

3350  XD=CINT(XL-SVAL*(XL-XU)) 

3360  YD=CINT(YL+SVAL*(YU-YL)) 

3370  GOTO  3390 

3380  SET=20 

3390  RETURN 

3400  CLS: WIDTH  80 

3410  SHELL  "WS 

3420  CLS 

3430  GOTO  250 


Appendix  B 
NCSCLAIM.BAS  Listing 


01  COMMON  DRV$ 

20  DIM  CODES(100),S(100),KOUNT(100) 

30  DEFDBL  N,M,C:  LASTFILE$="   " 

35  GOTO  4000 

250  PAD$="         Main  Menu 

260  GOSUB  650 

270  TES=0 


280  GOSUB  ! 

380 

oon    p  CM*  ******************************  *********** 

300  PRINT 

310  PRINT" 

1. 

P.O.  C.  Lists                 " 

320  PRINT" 

2. 

Emergency  Activation  Procedures  " 

330  PRINT" 

3. 

Network  Status  Monitoring       " 

340  PRINT" 

4. 

Damage  Assessment             " 

350  PRINT" 

5. 

Resolution  of  Claim           " 

360  PRINT" 

6. 

Zooming                     " 

370  PRINT" 

7. 

Word  Processing  (WordStar)      " 

380  PRINT" 

8. 

NSC  Processing  Module          " 

390  PRINT" 

9. 

QUIT                        " 

400  COLOR 

14,0, 

0: PRINT 

410  PRINT" 

ENTER  OPTION  DESIRED"; 

420  INPUT  ' 

r 

430  IF  T=6 

OR  T 

=7  THEN  460 

440  IF  T=LAST" 

THEN  4000 

450  LASTT=" 

r 

460  PRINT 

470  WIDTH  I 

50 

480  IF  T=l 

THEN 

CHAIN  "NCSPOC" 

490  IF  T=2 

THEN 

CHAIN  "NCSACT" 

500  IF  T=3 

THEN 

CHAIN  "NCSSTAT" 

510  IF  T=4 

THEN 

CHAIN  "NCSDAM" 

520  IF  T=5 

THEN 

CHAIN  "NCSCLAIM" 

530  IF  T=6 

THEN 

RUN  "NCSZOOM" 

540  IF  T=7 

THEN 

3400 

550  IF  T=8 

THEN 

CHAIN  "NCSNSC" 

560  IF  T=9 

THEN 

SYSTEM 

570  GOTO  250 

-  14- 
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580  LOCATE  10,4: PRINT"  DATE  ":  LOCATE  10,29: PRINT"  TIME  " 

600  LOCATE  11,2 

610  PRINT  DATES 

620  LOCATE  11,28 

630  PRINT  TIME$ 

640  RETURN 

650  D CM** ************************************************ ********* ** 

660  REM* 

670  REM*   This  Subroutine  produces  the  logo  box  for  the  menus. 

680  REM* 

690  RFM**** **************************  ******************************* 

700  SCREEN  0: WIDTH  40:  CLS 

710  PRINT 

720  COLOR  14,1,0 

730  PRINT  CHR$(201); 

740  FOR  1=1  TO  36 

750  PRINT  CHR$(205); 

760  NEXT  I 

770  PRINT  CHR$(187) 

780  PRINT  CHR$(186); 

790  FOR  1=1  TO  36 

800  PRINT"  "; 

810  NEXT  I 

820  PRINT  CHR$(186) 

830  PRINT  CHR$(186); 

840  PRINT"     NCS  EMERGENCY  TELECOMM.      "; 

850  PRINT  CHR$(186) 

860  PRINT  CHR$(186); 

870  PRINT"         MICRO  SUBSYSTEM         "; 

880  PRINT  CHR$(186) 

890  PRINT  CHR$(186); 

900  PRINT  PAD$;: PRINT  CHR$(186) 

910  PRINT  CHR$(186); 

920  FOR  1=1  TO  36 

930  PRINT"  "; 

940  NEXT  I 

950  PRINT  CHR$(186) 

960  PRINT  CHR$(200); 

970  FOR  1=1  TO  36 

980  PRINT  CHR$(205); 

990  NEXT  I 

1000  PRINT  CHR$(188) 

1010  PAD$="   " 

1020  COLOR  14,1,0 

1030  RETURN 

1040  CLS: WIDTH  80 

1050  PRINT"THIS  OPTION  IS  NOT  YET  AVAILABLE." 


1060  INPUT"PRESS  RETURN  FOR  MENU. ";RET$ 

1070  CLS 

1080  RETURN 

1090  RPM********pT I  P  READ************************** 

1100  SCREEN  0:  CLS:  WIDTH  80 

1110  IF  SET=0  THEN  1320 

1120  1=0 

1130  OPEN  "I\#1,X$ 

1140  IF  EOF(l)  THEN  1280 

1150  INPUT  #1,K$,A$ 

1160  IF  K$=PASS$  THEN  1180 

1170  GOTO  1140 

1180  1=1+1 

1190  IF  I>=20  THEN  1220 

1200  PRINT  A$ 

1210  GOTO  1140 

1220  PRINT 

1230  INPUT"ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT";C$ 

1240  IF  C$="Q"  THEN  1280 

1250  PRINT 

1260  1=0 

1270  GOTO  1140 

1280  CLOSE 

1290  PRINT 

1300  INPUT"ENTER  RETURN  TO  CONTINUE  ";R$ 

1310  GOTO  1450 

1320  OPEN  "I",#1,X$ 

1330  FOR  1=1  TO  20 

1340  LINE  INPUT  #1,A$ 

1350  IF  EOF(l)  THEN  1420 

1360  PRINT  A$ 

1370  NEXT  I 

1380  PRINT 

1390  INPUT"ENTER  C  TO  CONTINUED  TO  QUIT";B$ 

1400  IF  B$<>"C"  AND  B$<>"Q"  THEN  1390 

1410  IF  B$="C"  THEN  1330 

1420  PRINT 

1430  INPUT"  PRESS  RETURN  WHEN  READY"; M$ 

1440  CLOSE  #1 

1450  RETURN 

1460  RFM************FT I  P  pi QT**************** 

1470  WIDTH  80: SCREEN  2:  WINDOW  SCREEN  (0,0)-(640,250) 

1480  OPEN  "I",#1,N$ 

1490  IF  EOF(l)  THEN  2510 

1500  INPUT  #1,C,X,Y,Z,S,E 

1510  IF  C=0  THEN  1760  REM  **POINT 

1520  IF  C=l  THEN  1780  REM  **LINE 
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1530 

IF  C=2  THEN  1800 

REM 

**CIRCLE 

1540 

IF  C=3  THEN  1820 

REM 

**CLEAR  SCREEN 

1550 

IF  C=4  THEN  1840 

REM 

**CLEAR  POINT 

1560 

IF  C=5  THEN  1860 

REM 

**CLEAR  CENTER  OF  CIRCLE 

1570 

IF  C=6  THEN  1880 

REM 

**BOX(UPPER  LEFT  CORNER) 

1580 

IF  C=7  THEN  1910 

REM 

**BOX  (LOWER  RIGHT  CORNER) 

1590 

IF  C=8  THEN  1930 

REM 

**SATELLITE 

1600 

IF  C=9  THEN  1990 

REM 

**STAR 

1610 

IF  C=10  THEN  2020 

REM 

**EARTH  STATION 

1620  IF  C=ll  THEN  2050  REM  **CITY  (BOX) 

1630  IF  C=12  THEN  2070  REM  **REMOVE  CENTER  OF  CIRCLE 

1640  IF  C=13  THEN  2090  REM  **TELEPHONE  SET 

1650  IF  C=14  THEN  2120  REM  **SET  UP  BLOCK  FILLER 


1660 

IF  C=15 

THEN 

2140 

REM 

**CREATES  A  FILLED  BLOCK 

1670 

IF  C=16 

THEN 

2160 

REM 

**CREATES  A  TRIANGLE 

1680 

IF  C=17 

THEN 

2200 

REM 

**CREATES  A  BIG  TRIANGLE 

1690 

IF  C=18 

THEN 

2260 

REM 

**CREATES  A  DIAMOND 

1700 

IF  C=19 

THEN 

2320 

REM 

**CREATES  A  LARGE  BOX 

1710 

IF  C=20 

THEN 

2340 

REM 

**WISHBONE 

1720 

IF  C=21 

THEN 

2410 

REM 

**ASTERISK 

1730 

IF  C=22 

THEN 

2460 

REM 

**AN  X 

1740 

IF  C=23 

THEN 

2490 

REM 

**A  DASHED  LINE 

1750  GOTO  1490 

1760  PSET  (X,Y) 

1770  GOTO  1490 

1780  LINE  ~(X,Y) 

1790  GOTO  1490 

1800  CIRCLE(X,Y),Z,,S,E, 13/32 

1810  GOTO  1490 

1820  CLS 

1830  GOTO  1490 

1840  CLS 

1850  GOTO  1490 

1860  CLS 

1870  GOTO  1490 

1880  X1=X 

1890  Y1=Y 

1900  GOTO  1490 

1910  LINE  (X1,Y1)-(X,Y),,B 

1920  GOTO  1490 

1930  CIRCLE  (X,Y),10, ,0,6. 28,1/2 

1940  LINE  (X-20,Y)-(X-10,Y) 

1950  LINE  (X,Y-5)-(X,Y-10) 

1960  LINE  (X+10,Y)-(X+20,Y) 

1970  LINE  (X,Y+5)-(X,Y+10) 

1980  GOTO  1490 

1990  LINE  (X,Y-2)-(X-4,Y+2):LINE  -(X+4,Y-1) 


2000  LINE  (X,Y-2)-(X+4,Y+2):LINE  -(X-4.Y-1):  LINE  -(X+4.Y-1) 

2010  GOTO  1490 

2020  LINE  (X,Y)-(X+10,Y-10):  LINE  -(X+20.Y):  LINE  -(X,Y) 

2030  CIRCLE  (X+20.Y-15) ,14, ,2.  36,5.  5 

2040  GOTO  1490 

2050  LINE  (X-2,Y-1)-(X+2,Y+1),,B 

2060  GOTO  1490 

2070  CLS 

2080  GOTO  1490 

2090  LINE  (X,Y)-(X+12,Y):  LINE  -(X+6.Y-6): LINE  -(X,Y) 

2100  CIRCLE  (X+6,Y-6),6,,0,3. 14 

2110  GOTO  1490 

2120  PAINT  (X,Y),1 

2130  GOTO  1490 

2140  LINE  (X1,Y1)-(X,Y),,B 

2150  GOTO  1490 

2160  LINE  (X-2,Y)-(X+2,Y) 

2170  LINE  (X-4,Y+1)-(X+4,Y+1) 

2180  PSET  (X,Y-1) 

2190  GOTO  1490 

2200  PSET  (X,Y-2) 

2210  LINE  (X-2,Y-1)-(X+2,Y-1) 

2220  LINE  (X-4,Y)-(X+4,Y) 

2230  LINE  (X-6,Y+1)-(X+6,Y+1) 

2240  LINE  (X-8,Y+2)-(X+8,Y+2) 

2250  GOTO  1490 

2260  PSET  (X,Y) 

2270  PSET  (X-2,Y) 

2280  PSET  (X+2.Y) 

2290  PSET  fX,Y-l) 

2300  PSET  (X.Y+1) 

2310  GOTO  1490 

2320  LINE  (X-4,Y-2)-(X+4,Y+2),,B 

2330  GOTO  1490 

2340  PSET  (X.Y-2) 

2350  PSET  (X.Y-1) 

2360  PSET  (X,Y) 

2370  LINE  (X-2,Y+1)-(X+2,Y+1) 

2380  PSET  (X-4.Y+2) 

2390  PSET  (X+4,Y+2) 

2400  GOTO  1490 

2410  LINE  (X+4,Y-2)-(X-4,Y+2) 

2420  LINE  (X-4,Y-2)-(X+4,Y+2) 

2430  LINE  (X-4,Y)-(X+4,Y) 

2440  LINE  (X,Y+2)-(X,Y-2) 

2450  GOTO  1490 

2460  LINE  (X+4,Y-2)-(X-4,Y+2) 
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2470  LINE  (X-4,Y-2)-(X+4,Y+2) 

2480  GOTO  1490 

2490  LINE-(X,Y),,,50.  386 

2500  GOTO  1490 

2510  CLOSE 

2520  RETURN 

2530  RFM*************|_AT/  LONG*  *******  *********** 

2540  REM  CLS 

2550  REGIONS 

2560  SET=0 

2570  OPEN  "I" ,01, "BOUNDARY" 

2580  IF  EOF(l)  THEN  GOTO  2610 

2590   INPUT  #1,LATD,LATU,L0NR,L0NL,REG 

2600  IF  REGI0N<>REG  THEN  2580 

2610  CLOSE  #1 

2620  IF  LAT>LATU  OR  LAT<LATD  THEN  2650 

2630  IF  LON>LONL  OR  LON<LONR  THEN  2650 

2640  GOTO  2680 

2650  IF  REGI0N>10  THEN  3380 

2660  REGI0N=R+(R*10) 

2670  GOTO  2570 

2680  OPEN  "I",#2,"LATFILE" 

2690  LA1=0 

2700  IF  EOF(2)  THEN  2810 

2710  INPUT  #2,  LA,  YVAL,REG 

2720  IF  REGIONoREG  THEN  2700 

2730  IF  LAT<=LA1  AND  LAT>=LA  THEN  2770 

2740  LA1=LA 

2750  YVAL1=YVAL 

2760  GOTO  2700 

2770  YLOW=YVAL 

2780  YHI=YVAL1 

2790  LATL0W=LA 

2800  LATHI=LA1 

2810  CLOSE  #2 

2820  OPEN  "I",#l,"LONFILE" 

2830  LON1=0 

2840  IF  E0F(1)  THEN  2920 

2850  INPUT  #1,L0,C1,C2,REG 

2860  IF  REGIONoREG  THEN  2840 

2870  IF  L0N<=L0N1  AND  LON>=LO  THEN  2920 

2880  LONl=LO 

2890  C11=C1 

2900  C21=C2 

2910  GOTO  2840 

2920  CLOSE  #1 

2930  IF  R=0  THEN  3070 
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2940  XLEFTU=YHI/C11+C21 

2950  XLEFTD=YL0W/C11+C21 

2960  XRITEU=YHI/C1+C2 

2970  XRITED=YL0W/C1+C2 

2980  L1=XRITEU-XLEFTU 

2990  L2=XRITED-XLEFTD 

3000  G=(L0N1-L0N)/(L0N1-L0) 

3010  XL=G*L2+XLEFTD 

3020  XU=G*L1+XLEFTU 

3030  D=(LAT-LATLOW)/(LATHI-LATLOW) 

3040  XD=CINT(XL-D*(XL-XU)) 

3050  YD=CINT(D*(YHI-YL0W)+YL0W) 

3060  GOTO  3390 

3070  RAD(1)=YL0W 

3080  RAD(2)=YHI 

3090  C1(1)=C11 

3100  C2(1)=C21 

3110  C1(2)=C1 

3120  C2(2)=C2 

3130  FOR  1=1  TO  2 

3140  K=0 

3150  IF  1=1  THEN  S=l 

3160  IF  1=2  THEN  S=3 

3170  FOR  J=S  TO  S+l 

3180  K=K+1 

3190  A=1/(C1(K)   2)+l 

3200  B=2*(174-C2(K))/C1(K)+2*514 

3210  C=(174-C2(K))     2-RAD(I)    2+514  2 

3220  Y1=(B+SQR(B  2-4*A*C))/(2*A) 

3230  Y2=(B-SQR(B  2-4*A*C))/(2*A) 

3240  IF  Yl>235  THEN  Y(J)=Y2 

3250  IF  Yl<=235  THEN  Y(J)=Y1 

3260  X(J)=Y(J)/C1(K)+C2(K) 

3270  NEXT  J 

3280  NEXT  I 

3290  DVAL=(L0N1-L0N)/(L0N1-L0) 

3300  XL=DVAL*(X(2)-X(1))+X(1) 

3310  YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320  XU=DVAL*(X(4)-X(3))+X(3) 

3330  YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340  SVAL=(LAT-LATLOW)/(LATHI-LATLOW) 

3350  XD=CINT(XL-SVAL*(XL-XU)) 

3360  YD=CINT(YL+SVAL*(YU-YL)) 

3370  GOTO  3390 

3380  SET=20 

3390  RETURN 

3400  CLS: WIDTH  80 
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3410  SHELL  "WS 

3420  CLS 

3430  GOTO  250 

4000  RFM  ***********************  a************* ***************** 

4010  PAD$="        RESOLUTION  OF  CLAIM       " 

4020  GOSUB  650 

4030  TES=0 

4040  GOSUB  580 

4050  PRINT 

4060  PRINT"  1.  Entry  of  Claim  Record  " 

4070  PRINT"  2.  Review  Claim  Status  File        " 

4080  PRINT"  3.  Claim  Resolution  " 

4090  PRINT"  4.  QUIT  " 

4100  PRINT 

4110  COLOR  14,0,0:  INPUT"     ENTER  OPTION  DESIRED  ";T 

4120  CLS 

4130  IF  T=l  THEN  GOSUB  1040 

4140  IF  T=2  THEN  GOSUB  1040 

4150  IF  T=3  THEN  GOSUB  1040 

4160  IF  T=4  THEN  250 

4170  GOTO  4010 


Appendix  C 
NCSSTAT.BAS  Listing 


01  COMMON  DRV$ 

20  DIM  CODES(100),S(100),KOUNT(100) 

30  DEFDBL  N,M,C:  LASTFILE$="  " 

35  GOTO  4000 

250  PAD$="         Main  Menu 

260  GOSUB  650 

270  TES=0 


280  GOSUB 
290  REM** 
300  PRINT 
310  PRINT 
320  PRINT 
330  PRINT 
340  PRINT 
350  PRINT 
360  PRINT 
370  PRINT 
380  PRINT 
390  PRINT 
400  COLOR 
410  PRINT 
420  INPUT 
IF  T= 
IF  T= 
LASTT 
460  PRINT 
470  WIDTH 
480  IF  T= 
490  IF  T= 
500  IF  T= 
510  IF  T= 
520  IF  T= 
530 
540 
550  IF  T= 
560  IF  T= 
570  GOTO 


580 


************************************************** 


430 
440 
450 


1.  P.O.  C.  Lists 

2.  Emergency  Activation  Procedures 

3.  Network  Status  Monitoring 

4.  Damage  Assessment 

5.  Resolution  of  Claim 

6.  Zooming 

7.  Word  Processing  (WordStar) 

8.  NSC  Processing  Module 

9.  QUIT 
14,0,0:  PRINT 

"     ENTER  OPTION  DESIRED"; 
T 
6  OR  T=7  THEN  460 
LASTT  THEN  4000 
=T 


IF  T= 

IF  T= 


80 

1  THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 

8  THEN 

9  THEN 
250 


CHAIN  "NCSPOC" 
CHAIN  "NCSACT" 
CHAIN  "NCSSTAT" 
CHAIN  "NCSDAM" 
CHAIN  "NCSCLAIM" 
RUN  "NCSZOOM" 
3400 

CHAIN  "NCSNSC" 
SYSTEM 
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2} 


580  LOCATE  10,4:  PRINT"  DATE  ":  LOCATE  10,29: PRINT"  TIME  " 

600  LOCATE  11,2 

610  PRINT  DATES 

620  LOCATE  11,28 

630  PRINT  TIME$ 

640  RETURN 

6 SO  OEM************************************************************* 

660  REM*  * 

670  REM*   This  Subroutine  produces  the  logo  box  for  the  menus.    * 
680  REM* 
690  RFM**** *********************************************  ************ 

700  SCREEN  0: WIDTH  40:  CLS 

710  PRINT 

720  COLOR  14,1,0 

730  PRINT  CHR$(201); 

740  FOR  1=1  TO  36 

750  PRINT  CHR$(205); 

760  NEXT  I 

770  PRINT  CHR$(187) 

780  PRINT  CHR$(186); 

790  FOR  1=1  TO  36 

800  PRINT"  "; 

810  NEXT  I 

820  PRINT  CHR$(186) 

830  PRINT  CHR$(186); 

840  PRINT"     NCS  EMERGENCY  TELECOMM. 


n. 


> 


850  PRINT  CHR$(186) 

860  PRINT  CHR$(186); 

870  PRINT"         MICRO  SUBSYSTEM         "; 

880  PRINT  CHR$(186) 

890  PRINT  CHR$(186); 

900  PRINT  PAD$;: PRINT  CHR$(186) 

910  PRINT  CHR$(186); 

920  FOR  1=1  TO  36 

930  PRINT"  "; 

940  NEXT  I 

950  PRINT  CHR$(186) 

960  PRINT  CHR$(200); 

970  FOR  1=1  TO  36 

980  PRINT  CHR$(205); 

990  NEXT  I 

1000  PRINT  CHR$(188) 

1010  PAD$="   " 

1020  COLOR  14,1,0 

1030  RETURN 

1040  CLS: WIDTH  80 

1050  PRINT"THIS  OPTION  IS  NOT  YET  AVAILABLE." 
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1060  INPUT"PRESS  RETURN  FOR  MENU. ";RET$ 

1070  CLS 

1080  RETURN 

1090  rpm********FI L E  RFAn************************** 

1100  SCREEN  0: CLS: WIDTH  80 

1110  IF  SET=0  THEN  1320 

1120  1=0 

1130  OPEN  "I",#1,X$ 

1140  IF  E0F(1)  THEN  1280 

1150  INPUT  #1,K$,A$ 

1160  IF  K$=PASS$  THEN  1180 

1170  GOTO  1140 

1180  1=1+1 

1190  IF  I>=20  THEN  1220 

1200  PRINT  A$ 

1210  GOTO  1140 

1220  PRINT 

1230  INPUT"ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT"; C$ 

1240  IF  C$="Q"  THEN  1280 

1250  PRINT 

1260  1=0 

1270  GOTO  1140 

1280  CLOSE 

1290  PRINT 

1300  INPUT"ENTER  RETURN  TO  CONTINUE  ";R$ 

1310  GOTO  1450 

1320  OPEN  "r,#l,X$ 

1330  FOR  1=1  TO  20 

1340  LINE-  INPUT  #1,A$ 

1350  IF  EOF(l)  THEN  1420 

1360  PRINT  A$ 

1370  NEXT  I 

1380  PRINT 

1390  INPUT"ENTER  C  TO  CONTINUED  TO  QUIT";  B$ 

1400  IF  B$<>"C"  AND  B$<>"Q"  THEN  1390 

1410  IF  B$="C"  THEN  1330 

1420  PRINT 

1430  INPUT"  PRESS  RETURN  WHEN  READY"; M$ 

1440  CLOSE  #1 

1450  RETURN 

1460  dpm************pt |_P  pi  qt**************** 

1470  WIDTH  80: SCREEN  2:  WINDOW  SCREEN  (0,0)-(640,250) 

1480  OPEN  "I",#1,N$ 

1490  IF  EOF(l)  THEN  2510 

1500  INPUT  #1,C,X,Y,Z,S,E 

1510  IF  C=0  THEN  1760  REM  **POINT 

1520  IF  C=l  THEN  1780  REM  **LINE 


2^ 


1530  IF  C=2  THEN  1800  REM  **CIRCLE 

1540  IF  03  THEN  1820  REM  ""CLEAR  SCREEN 

1550  IF  04  THEN  1840  REM  **CLEAR  POINT 

1560  IF  C=5  THEN  1860  REM  **CLEAR  CENTER  OF  CIRCLE 

1570  IF  C=6  THEN  1880  REM  **BOX(UPPER  LEFT  CORNER) 

1580  IF  C=7  THEN  1910  REM  ""BOX  (LOWER  RIGHT  CORNER) 

1590  IF  C=8  THEN  1930  REM  **SATELLITE 

1600  IF  C=9  THEN  1990  REM  """STAR 

1610  IF  C=10  THEN  2020  REM  ""EARTH  STATION 

1620  IF  Oil  THEN  2050  REM  **CITY  (BOX) 

1630  IF  012  THEN  2070  REM  **REMOVE  CENTER  OF  CIRCLE 

1640  IF  013  THEN  2090  REM  ""TELEPHONE  SET 

1650  IF  C=14  THEN  2120  REM  **SET  UP  BLOCK  FILLER 

1660  IF  015  THEN  2140  REM  ""CREATES  A  FILLED  BLOCK 

1670  IF  016  THEN  2160  REM  ""CREATES  A  TRIANGLE 

1680  IF  017  THEN  2200  REM  ""CREATES  A  BIG  TRIANGLE 

1690  IF  018  THEN  2260  REM  ""CREATES  A  DIAMOND 

1700  IF  019  THEN  2320  REM  ""CREATES  A  LARGE  BOX 

1710  IF  C=20  THEN  2340  REM  ""WISHBONE 

1720  IF  021  THEN  2410  REM  ""ASTERISK 

1730  IF  C=22  THEN  2460  REM  ""AN  X 

1740  IF  C=23  THEN  2490  REM  *"A  DASHED  LINE 

1750  GOTO  1490 

1760  PSET  (X,Y) 

1770  GOTO  1490 

1780  LINE  -(X,Y) 

1790  GOTO  1490 

1800  CIRCLE(X,Y),Z,,S,E, 13/32 

1810  GOTO  1490 

1820  CLS 

1830  GOTO  1490 

1840  CLS 

1850  GOTO  1490 

1860  CLS 

1870  GOTO  1490 

1880  X1=X 

1890  Y1=Y 

1900  GOTO  1490 

1910  LINE  (X1,Y1)-(X,Y),,B 

1920  GOTO  1490 

1930  CIRCLE  (X,Y),10, ,0,6. 28,1/2 

1940  LINE  (X-20,Y)-(X-10,Y) 

1950  LINE  (X,Y-5)-(X,Y-10) 

1960  LINE  (X+10,Y)-(X+20,Y) 

1970  LINE  (X,Y+5)-(X,Y+10) 

1980  GOTO  1490 

1990  LINE  (X,Y-2)-(X-4,Y+2):LINE  -(X+4.Y-1) 
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2000  LINE  (X,Y-2)-(X+4,Y+2):LINE  -(X-4.Y-1): LINE  -(X+4.Y-1) 

2010  GOTO  1490 

2020  LINE  (X,Y)-(X+10,Y-10):  LINE  -(X+20.Y):  LINE  -(X,Y) 

2030  CIRCLE  (X+20,Y-15) ,14, ,2. 36,5. 5 

2040  GOTO  1490 

2050  LINE  (X-2,Y-1)-(X+2,Y+1),,B 

2060  GOTO  1490 

2070  CLS 

2080  GOTO  1490 

2090  LINE  (X,Y)-(X+12,Y): LINE  -(X+6.Y-6): LINE  ~(X,Y) 

2100  CIRCLE  (X+6,Y-6),6,,0,3. 14 

2110  GOTO  1490 

2120  PAINT  (X,Y),1 

2130  GOTO  1490 

2140  LINE  (X1,Y1)-(X,Y),,B 

2150  GOTO  1490 

2160  LINE  (X-2,Y)-(X+2,Y) 

2170  LINE  (X-4,Y+1)-(X+4,Y+1) 

2180  PSET  (X.Y-1) 

2190  GOTO  1490 

2200  PSET  (X.Y-2) 

2210  LINE  (X-2,Y-1)-(X+2,Y-1) 

2220  LINE  (X-4,Y)-(X+4,Y) 

2230  LINE  (X-6,Y+1)-(X+6,Y+1) 

2240  LINE  (X-8,Y+2)-(X+8,Y+2) 

2250  GOTO  1490 

2260  PSET  (X,Y) 

2270  PSET  (X-2.Y) 

2280  PSET  (X+2,Y) 

2290  PSET  (X.Y-1) 

2300  PSET  (X.Y+1) 

2310  GOTO  1490 

2320  LINE  rX-4,Y-2)-(X+4,Y+2),,B 

2330  GOTO  1490 

2340  PSET  (X,Y-2) 

2350  PSET  (X.Y-1) 

2360  PSET  (X,Y) 

2370  LINE  (X-2,Y+1)-(X+2,Y+1) 

2380  PSET  (X-4.Y+2) 

2390  PSET  (X+4,Y+2) 

2400  GOTO  1490 

2410  LINE  (X+4,Y-2)-(X-4,Y+2) 

2420  LINE  (X-4,Y-2)-(X+4,Y+2) 

2430  LINE  (X-4,Y)-(X+4,Y) 

2440  LINE  (X,Y+2)-(X,Y-2) 

2450  GOTO  1490 

2460  LINE  (X+4,Y-2)-(X-4,Y+2) 
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2470  LINE  (X-4,Y-2)-(X+4,Y+2) 

2480  GOTO  1490 

2490  LINE-(X,Y), , ,50.  386 

2500  GOTO  1490 

2510  CLOSE 

2520  RETURN 

2530  RFM*************|_AT/LONG***  *******  ********* 

2540  REM  CLS 

2550  REGION=R 

2560  SET=0 

2570  OPEN  "I", #1, "BOUNDARY" 

2580  IF  EOF(l)  THEN  GOTO  2610 

2590  INPUT  #1,LATD,LATU,L0NR,L0NL,REG 

2600  IF  REGION<>REG  THEN  2580 

2610  CLOSE  #1 

2620  IF  LAT>LATU  OR  LAT<LATD  THEN  2650 

2630  IF  LON>LONL  OR  LON<LONR  THEN  2650 

2640  GOTO  2680 

2650  IF  REGI0N>10  THEN  3380 

2660  REGI0N=R+(R*10) 

2670  GOTO  2570 

2680  OPEN  ,,ri,#2,"LATFILE" 

2690  LA1=0 

2700  IF  EOF(2)  THEN  2810 

2710  INPUT  #2,  LA,  YVAL,REG 

2720  IF  REGIONoREG  THEN  2700 

2730  IF  LAT<=LA1  AND  LAT>=LA  THEN  2770 

2740  LA1=LA 

2750  YVAL1=YVAL 

2760  GOTO  2700 

2770  YL0W=YVAL 

2780  YHI=YVAL1 

2790  LATLOW=LA 

2800  LATHI=LA1 

2810  CLOSE  #2 

2820  OPEN  "I",#1,"L0NFILE" 

2830  LON1=0 

2840  IF  E0F(1)  THEN  2920 

2850  INPUT  #1,L0,C1,C2,REG 

2860  IF  REGIONoREG  THEN  2840 

2870  IF  L0N<=L0N1  AND  LON>=LO  THEN  2920 

2880  LONl=LO 

2890  C11=C1 

2900  C21=C2 

2910  GOTO  2840 

2920  CLOSE  #1 

2930  IF  R=0  THEN  3070 
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2940  XLEFTU=YHI/C11+C21 

2950  XLEFTD=YL0W/C11+C21 

2960  XRITEU=YHI/C1+C2 

2970  XRITED=YL0W/C1+C2 

2980  L1=XRITEU-XLEFTU 

2990  L2=XRITED-XLEFTD 

3000  G=(L0N1-L0N)/(L0N1-L0) 

3010  XL=G*L2+XLEFTD 

3020  XU=G*L1+XLEFTU 

3030  D=( LAT-LATLOW)/( LATHI-LATLOW) 

3040  XD=CINT(XL-D*(XL-XU)) 

3050  YD=CINT(D*(YHI-YLOW)+YLOW) 

3060  GOTO  3390 

3070  RAD(l)=YLOW 

3080  RAD(2)=YHI 

3090  C1(1)=C11 

3100  C2(1)=C21 

3110  C1(2)=C1 

3120  C2(2)=C2 

3130  FOR  1=1  TO  2 

3140  K=0 

3150  IF  1=1  THEN  S=l 

3160  IF  1=2  THEN  S=3 

3170  FOR  J=S  TO  S+l 

3180  K=K+1 

3190  A=1/(C1(K)   2)+l 

3200  B=2*(174-C2(K))/C1(K)+2*514 

3210  C=(174-C2(K))     2-RAD(I)    2+514  2 

3220  Y1=(B+SQR(B  2-4*A*C))/(2*A) 

3230  Y2=(B-SQR(B  2-4*A*C))/(2*A) 

3240  IF  Yl>235  THEN  Y(J)=Y2 

3250  IF  Yl<=235  THEN  Y(J)=Y1 

3260  X(J)=Y(J)/C1(K)+C2(K) 

3270  NEXT  J 

3280  NEXT  I 

3290  DVAL=(L0N1-L0N)/(L0N1-L0) 

3300  XL=DVAL*(X(2)-X(1))+X(1) 

3310  YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320  XU=DVAL*(X(4)-X(3))+X(3) 

3330  YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340  SVAL=( LAT-LATLOW)/( LATHI-LATLOW) 

3350  XD=CINT(XL-SVAL*(XL-XU)) 

3360  YD=CINT(YL+SVAL*(YU-YL)) 

3370  GOTO  3390 

3380  SET=20 

3390  RETURN 

3400  CLS:  WIDTH  80 
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3410  SHELL  "WS 

3420  CLS 

3430  GOTO  250 

4000  RFM  ***************************************** 

4010  PAD$="      Network  Status  Monitoring     " 

4020  GOSUB  650 

4030  TES=0 

4040  GOSUB  580 

4050  PRINT 

4060  PRINT  " 

SYSTEMS  AVAILABLE 

4070  PRINT  " 

4080  PRINT  "    1. 

DOD 

4090  PRINT  "    2. 

GSA 

4100  PRINT  "    3. 

FAA 

4110  PRINT  "    4. 

FEMA 

4120  PRINT  "    5. 

NASA 

4130  PRINT  "    6. 

COMMERCIAL  COMM. 

4140  PRINT  "    7. 

CRITICAL  COMM.  FACILITIES 

4150  PRINT  "    8. 

QUIT 

4160  PRINT 

4170  COLOR  14,0,0: 

^RINT  "   ENTER  OPTION  DESIRED  " 

4180  INPUT  T 

4190  PRINT 

4200  CLS 

4210  IF  T  =  2  THEN 

GOTO  10220 

4220  IF  T  =  4  THEN 

GOTO  10950 

4230  IF  T  =  8  THEN 

250 

4240  IF  T  =  5  THEN 

GOTO  9270 

4250  IF  T  =  1  THEN 

GOTO  6190 

4260  IF  DRV$>"B:" 

THEN  4280 

4265  PRINT  "ENTER 

DISC  NO.  S-17  IN  THE" 

4270  INPUT  "B-DRIVE  AND  ENTER  RETURN"; D$ 

4280  RESET 

4290  WIDTH  80 

4300  IF  T  =  3  THEN 

GOTO  10630 

4310  IF  T  =  6  THEN 

GOTO  13650 

4320  IF  T  =  7  THEN 

GOTO  14260 

4330  GOTO  4000 

4340  WIDTH  40 

4350  PRINT 

4360  PRINT 

4370  PRINT  "  THE 

";ST$;"  SYSTEM  CAN  BE  DISPLAYED" 

4380  PRINT 

4390  PRINT  " 

1.  AT  THE  US  LEVEL" 

4400  PRINT  " 

2.  BY  FEMA  REGION" 

4410  PRINT 

4420  PRINT  "  ENTER  OPTION  DESIRED:"; 

****************** 


30 


4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 


INPUT  AN$ 

PRINT 

K=0 

IF  AN$="2"  THEN  INPUT  " 

IF  AN$="1"  THEN  A=0 

IF  A  =  0  THEN  N$="USAOUT. TXT" 


WHICH  REGION  (1-10)";A 


"CRITR1" 
"CRITR2" 
"CRITR3" 
"CRITR4" 
"CRITR5" 
"CRITR6" 
"CRITR7" 
nCRITR8" 
"CRITR9" 
■  "CRITR10" 


IF  A  =  1  THEN  N$=DRV$  + 

IF  A  =  2  THEN  N$=DRV$  + 

IF  A  =  3  THEN  N$=DRV$  + 

IF  A  =  4  THEN  N$=DRV$  + 

IF  A  =  5  THEN  N$=DRV$  + 

IF  A  =  6  THEN  N$=DRV$  + 

IF  A  =  7  THEN  N$=DRV$  + 

IF  A  =  8  THEN  N$=DRV$  + 

IF  A  =  9  THEN  N$=DRV$  + 

IF  A  =  10  THEN  N$=DRV$  ■ 

CLS 

PRINT  "STAND  BY  SYSTEM  PROCESSING" 

IF  A  >  0  THEN  5140 

K=l 

OPEN  "I",#1,F$ 

OPEN  "0",2,DRV$  +  "TEMPNOD" 

IF  EOF(l)  THEN  GOTO  4900 

INPUT  #1, ROW, COL, A$, XI, Y1,X2,Y2, STAT, TYP$, NODE 

IF  STAT=30  OR  STAT=31  THEN  4830 

IF  STAT=20  OR  STAT=21  THEN  4870 

IF  ST$="CRITICAL"  THEN  TYP$="ALL" 

IF  TYP$=CAT1$  THEN  PRINT  #2,16;", "XI 

IF  TYP$=CAT2$  THEN  PRINT  #2,11;", "XI 

IF  TYP$=CAT3$  THEN  PRINT  #2,0;", "XI 

IF  TYP$="SATE"  THEN  PRINT  #2,10; " ,"X1; " ,"Y1; 

IF  TYP$=CAT4$  THEN  PRINT  #2,9; " ,"X1; " ,"Y1- " 

IF  TYP$=CAT4$  THEN  PRINT  #2,2 

IF  TYP$=CAT5$  THEN  PRINT  #2,9 

IF  TYP$=CAT6$  THEN  PRINT  #2,20;  " ,"X1;  " ,"Y1;  " ,"0 

IF  TYP$=CAT7$  THEN  PRINT  #2,22; " ,"X1; " ,"Y1; " ,"0 

IF  TYP$=CAT8$  THEN  PRINT  #2,21; " ,"X1; " ,"Y1; " ,"0 

IF  TYP$=CAT9$  THEN  PRINT  #2,8; " ,"X1; " ,"Y1; " ,"0; " ,"0; "  ,"0 

IF  TYP$=CAT10$  THEN  PRINT  #2,13; " ,"X1; " ,"Y1; " ,"0; " ,"0; " ," 

GOTO  4650 

PRINT  #2,6;\"Xl-6;","Yl-3;","0;\"0;","0 

PRINT  #2,15;","Xl+6;","Yl+3;  ","0;","0;","0 

PRINT  #2 ,  14;  "  ,  "Xl+3;  "  ,  "Yl+1;  "  ,  "0;  "  ,  "0;  "  ,  "0 

GOTO  4650 

PRINT  #2,0;", "XI;  "  ,"Y1;  "  ,"0;  "  ,"0;  "  ,"6.  28 


","Y1;\"0 
","Y1;","0 

II   II  VI  .  II   1 1  Q 
II   II 


'Yl; 


","X1 
","X1 


","Y1 
"  ."Yl 


I.  IIQ.  "  »0 
II  IIQ-  "  "0 
II  IIQ-  I'  "0 
.  I.   IIQ.  II   IIQ 

0;","0;","0 
","10;","0;","6 
","0;","0;","0 
","0;\"0 
0 


28 


ii  ii 

V'o 
i  ii 


","0 
"  ,"0 


0 


PRINT  #2,2;","X1;","Y1;","6;","0; 
GOTO  4650 


'6.28 
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4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 


"YU1;","0;","0;","0 
"YU2;","0;","0;\"0 


CLOSE 

IF  A  >  0  THEN  5140 

IF  ST$  =  "FTS"  OR  ST$="AUTOVON"   THEN  5020 

IF  ST$  =  "MEECN"  OR  ST$  =  "CRITICAL"   THEN  5020 

OPEN  "I",#1,E$ 

OPEN   "0\#2,DRV$  +  "TEMPLIN" 

IF  EOF(l)   THEN  GOTO  5010 

INPUT  #1,C0DE1,C0DE2,XU1,YU1,XU2,YU2,XR1,YR1,XR2,YR2 

PRINT  #2,0;","XU1;" 

PRINT  #2,1;\"XU2;" 

GOTO  4960 

CLOSE 

CLS 

GOSUB   1460 

N$=DRV$  +  "TEMPNOD" 

GOSUB   1460 

KILL  DRV$  +  "TEMPNOD" 

IF  ST$  =  "FTS"  OR  ST$="AUTOVON"  THEN  5760 

IF  ST$  =  "MEECN"  OR  ST$  =  "CRITICAL"  THEN  5760 

N$=DRV$  +  "TEMPLIN" 

GOSUB   1460 

KILL  DRV$  +  "TEMPLIN" 

GOTO  5760 

K=0 

OPEN  "I",#1,F$ 

OPEN  "0",#2,DRV$  +  "RNODE" 

IF  EOF(l)  THEN  GOTO  5470 

INPUT  #1, ROW, COL, A$, XI, Y1.X2.Y2, STAT, TYP$, NODE 

N=NODE-INT(NODE/100)*100 

IF  N=ll  THEN  N=10 

IF  N=22  THEN  N=2 

IF  N=99  THEN  N=9 

IF  N  <>  A  THEN   5160 

IF  STAT=30  OR  STAT=31  THEN  5390 

IF  STAT=20  OR  STAT=21  THEN   5430 

IF  ST$="CRITICAL"   THEN  TYP$="ALL" 

IF  TYP$  =  CAT1$  THEN  PRINT  #2,17;" 

IF  TYP$  =  CAT2$  THEN  PRINT  #2,19;" 


"X2 
"X2 


IF  TYP$  =  CAT3$  THEN  PRINT  #2,18; ","X2 


"Y2 
"Y2 
"Y2 


","0 
","0 
","0 


","0 
","0 
","0 


IF  TYP$  =  "SATE"   THEN   PRINT  #2, 10; "  ,"X2; "  ,"Y2; "  ,"0; " ,"0; "  ,"0 


","X2 
","X2 
"  ,"X2 


IF  TYP$  =  CAT4$  THEN  PRINT  #2,9 

IF  TYP$  =  CAT4$  THEN  PRINT  #2,2 

IF  TYP$  =  CAT5$  THEN  PRINT  #2,9 

IF  TYP$  =  CAT6$  THEN  PRINT  #2,20; ","X2 

IF  TYP$  =  CAT7$  THEN  PRINT  #2,22; ","X2 

IF  TYP$  =  CAT8$  THEN  PRINT  #2,21; ","X2 

IF  TYP$  =  CAT9$  THEN  PRINT  #2,8;","X2; 


II     lly? 

"!"Y2 
","Y2 

II     lly? 

\"Y2 
","Y2 
,"Y2;", 


"0;",,,0;","0 
"10;", "0;", "6. 28 
"0;","0;","0 


"0 
"0 
"0 


","0 
","0 
"."0 


IQ.    II       "Q. 


","0 
","0 
","0 
,"0 
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5370  IF  TYP$  =  CAT10$  THEN  PRINT  #2,13; " ,"X2; " ,"Y2; " ,"0; " ,"0; " ,"0 

5380  GOTO  5450 

5390  PRINT  #2,6;","X2-8;","Y2-4;\"0;","0;","0 

5400  PRINT  #2,15;","X2+8;","Y2+4;","0;","0;\"0 

5410  PRINT  #2,14;","X2+4;","Y2+2;","0;\"0;","0 

5420  GOTO  5450 

5430  PRINT  #2,0;","X2;","Y2;\"0;","0;","0 

5440  PRINT  #2,2;","X2;","Y2;\"8;","0;","6.28 

5450  K=l 

5450  GOTO  5160 

5470  CLOSE 

5480  IF  ST$="AUTOVON"  OR  ST$="CRITICAL"  THEN  5670 

5490  OPEN  "I",#1,E$ 

5500  OPEN  "0",#2,DRV$  +  "RLINK" 

5510  IF  EOF(l)  THEN  GOTO  5660 

5520  INPUT  #1,C0DE1,C0DE2,XU1,YU1,XU2,YU2,XR1,YR1,XR2,YR2 

5530  Nl  =  C0DE1-INT(C0DE1/100)*100 

5540  IF  Nl  =  22  THEN  Nl  =  2 

5550  IF  Nl  =  99  THEN  Nl  =  9 

5560  IF  Nl  =  11  THEN  Nl  =  10 

5570  N2  =  C0DE2-INT(C0DE2/100)*100 

5580  IF  N2  =  22  THEN  N2  =  2 

5590  IF  N2  =  99  THEN  N2  =  9 

5600  IF  N2  =  11  THEN  N2  =  10 

5610  IF  Nl  <>  N2  THEN  5510 

5620  IF  Nl  <>  A  AND  N2  <>  A  THEN  5510 

5630  PRINT  #2,0;","XR1;\"YR1;,V,0;\"0;\"0 

5640  PRINT  #2,1;","XR2;","YR2;","0;","0;","0 

5650  GOTO  5510 

5660  CLOSE 

5670  CLS 

5680  GOSUB  1460 

5690  N$  =  DRV$  +  "RNODE" 

5700  GOSUB  1460 

5710  KILL  DRV$  +  "RNODE" 

5720  IF  ST$="AUTOVON"  OR  ST$="CRITICAL"  THEN  5760 

5730  N$  =  DRV$  +  "RLINK" 

5740  GOSUB  1460 

5750  KILL  DRV$  +  "RLINK" 

5760  OPEN  "I",#1,H$ 

5770  OPEN  "0",#2,DRV$  +  "LEGTEMP" 

5780  IF  EOF(l)  THEN  GOTO  5870 

5790  INPUT  #1,SY$,RN,XPT,YPT,CD,RAD 

5800  IF  SY$  <  >  ST$  THEN  5780 

5810  IF  RN  <  >  A  THEN  5780 

5820  IF  CD=2  THEN  5850  ELSE  5830 

5830  PRINT  #2,CD;")"XPT;","YPT;","RAD;")"0;","0 


" 


5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 


GOTO  5860 

PRINT  #2  ,CD;  "  , "XPT;  "  ,  "YPT;  "  ,  "RAD;  "  ,  "0;  "  ,  "6.  28 

GOTO  5780 

CLOSE 

N$=DRV$  +  "LEGTEMP" 

GOSUB  1460 

OPEN  "I",#1,G$ 

IF  EOF(l)  THEN  GOTO  5980 

INPUT  #1,R0W,C0L,A$,R 

IF  R  <  >  77  THEN  5950 

LOCATE  ROW, COL:  PRINT  A$ 

IF  R  <  >  A  THEN  5910 

LOCATE  ROW, COL:  PRINT  A$ 

GOTO  5910 

CLOSE 

KILL  DRV$  +  "LEGTEMP" 

IF  K=l  THEN  6030 

LOCATE  23,1 

PRINT  "THERE  ARE  NO  SWITCHES  IN  THIS  REGION." 

IF  ST$="MEECN"  THEN  RETURN 

LOCATE  24,1 

IF  ST$="DSCS"  THEN  INPUT  "PRESS  RETURN  WHEN  READY  ";P$ 

IF  ST$="DSCS"  THEN  RETURN 

INPUT  "ENTER  R  FOR  ANOTHER  REGION  OR  US  LEVEL,  Q  TO  QUIT";OPT$ 

IF  OPT$="R"  THEN  SCREEN  0: COLOR  14,0,0 

IF  OPT$="R"  THEN  GOTO  4340 

SCREEN  0:  COLOR  14,0,0 

PRINT 

INPUT  "DO  YOU  WISH  TO  SEE  A  LISTING  OF  THIS  SYSTEM?  <Y>ES  OR  <N>0";AS$ 

IF  AS$="N"  THEN  RETURN 

PRINT 

INPUT  "ENTER  S  FOR  ON  SCREEN,  P  FOR  ON  PAPER"; ANS$ 

GOSUB  14540 

RETURN 

END 

DCM  ******************************************************** 

PAD$="      Department  of  Defense       " 

GOSUB  650 

TES=0 

GOSUB  580 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


DOD  SYSTEMS  AVAILABLE 

1.  AUTODIN 

2.  AUTOVON 

3.  AUTOSEVOCOM 

4.  Hot-Line 

5.  MEECN 
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6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6415 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 


6.  Washington  Area  Wideband  System 

7.  DSCS 

8.  JCSAN 

9.  QUIT 
PRINT  "  ENTER  OPTION  DESIRED  "; 


PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT: 

INPUT  T 

PRINT 

CLS 

PRINT 

IF  T  =  9  THEN  4000 

IF  DRV$>"B:"  THEN  6430 

PRINT  "ENTER  DISC  NO.  18  IN  THE" 

INPUT  "B-DRIVE  AND  ENTER  RETURN"; A$ 

RESET 


IF 
IF 
IF 
IF 
IF 


=  1  THEN  GOSUB  7420 
=  2  THEN  GOSUB  7510 
=  3  THEN  GOSUB  1040 
=  4  THEN  6530 
=  5  THEN  7650 
=  6  THEN  9140 
=  7  THEN  9030 
=  8  THEN  8760 


WASHINGTON-TO-MOSCOW  HOTLINE" 
The  Washington-to-Moscow  Hotline  is  routed  over  cable  and  Satellite" 
Select  one  of  the  options  below:" 


IF  T 
IF  T 
IF  T 
GOTO  6200 

DCM  *********************************************** 

WIDTH  80: CLS: SCREEN  0: COLOR  14,0,0 

PRINT 

PRINT 

PRINT  " 

PRINT 

PRINT  " 

PRINT 

PRINT  " 

PRINT 

PRINT  " 

PRINT  " 

PRINT 

PRINT 

INPUT  "OPTION:  ";C 

IF  C=5  THEN  GOTO  6200 

IF  C=2  THEN  7340 
IF  C=l  THEN  GOTO  6760 
IF  C=3  THEN  X$=DRV$  +  "DCLCON" 
IF  C=4  THEN  X$=DRV$  +  "DCLOPS" 
IF  C=4  OR  C=3  THEN  SET=0 
IF  C=4  OR  C=3  THEN  GOSUB  1090 
GOTO  6540 
CLS 


1.  CABLE       2.  SATELLITE 
4.  CONCEPT  OF  OPERATIONS 


3.  DCL  CONFIGURATION" 
5.  QUIT" 
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6770  N$=DRV$  +  "ADCL1" 

6780  CLS 

6790  GOSUB  1460 

6800  S$=DRV$  +  "ADCL1S" 

6810  GOSUB  6830 

6820  GOTO  6900 

6830  OPEN  "I",  #1,S$ 

6840  IF  EOF(l)  THEN  GOTO  6880 

6850  INPUT  #1,  ROW, COL, A$ 

6860  LOCATE  ROW, COL: PRINT  A$ 

6870  GOTO  6840 

6880  CLOSE 

6890  RETURN 

6900  INPUT  "ENTER  D  FOR  NARRATIVE  DATA,  N  FOR  NEXT  ROUTE,  OR  R  TO  RETURN"; B$ 

6910  IF  B$="N"  THEN  GOTO  6980 

6920  IF  B$="D"  THEN  GOTO  6940 

6930  GOTO  6540 

6940  X$=DRV$  +  "H0TLINE1" 

6950  SET=0 

6960  GOSUB  1090 

6970  GOTO  6540 

6980  SCREEN  0:  COLOR  14,0,0 

6990  N$=DRV$  +  "ADCL2" 

7000  CLS 

7010  GOSUB  1460 

7020  S$=DRV$  +  "ADCL2S" 

7030  GOSUB  6830 

7040  INPUT  "ENTER  D  FOR  NARRATIVE  DATA,  N  FOR  NEXT  ROUTE,  R  FOR  RETURN  ";B$ 

7050  IF  B$="N"  THEN  GOTO  7120 

7060  IF  B$="D"  THEN  GOTO  7080 

7070  GOTO  6540 

7080  X$=DRV$  +  "H0TLINE2" 

7090  SET=0 

7100  GOSUB  1090 

7110  GOTO  6540 

7120  SCREEN  0:  COLOR  14,0,0 

7130  N$=DRV$  +  "ADCL3" 

7140  CLS 

7150  GOSUB  1460 

7160  S$=DRV$  +  "ADCL3S" 

7170  GOSUB  6830 

7180  INPUT  "ENTER  D  FOR  NARRATIVE  DATA,  N  FOR  NEXT  ROUTE,  R  FOR  RETURN  ";B$ 

7190  IF  B$="N"  THEN  GOTO  7260 

7200  IF  B$="D"  THEN  GOTO  7220 

7210  GOTO  6540 

7220  X$=DPV$  +  "H0TLINE3" 

7230  SET=0 
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7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7640 
7650 
7660 
7670 
7680 
7690 
7700 


GOSUB  1090 

GOTO  6540 

SCREEN  0:  COLOR  14,0,0 

N$=DRV$  +  "ADCL4" 

CLS 

GOSUB  1460 

S$=DRV$  +  "ADCL4S11 

GOSUB  6830 

INPUT  "  PRESS  RETURN  WHEN  READY  ";B$ 

GOTO  6540 

CLS 

N$=DRV$  +  "ADCL5" 

CLS 

GOSUB  1460 

S$=DRV$  +  "ADCL5S" 

GOSUB  6830 

INPUT  "  PRESS  RETURN  WHEN  READY  ";B$ 

GOTO  6540 

CLS 

E$=DRV$  +  "DINLINK" 

F$=DRV$  +  "DINNODE" 

CAT2$="ADIN" 

ST$="AUTODIN" 

H$=DRV$  +  "DLEGEND" 

G$=DRV$  +  "DINNAR" 

GOSUB  4340 

GOTO  6190 

CLS 

F$=DRV$  + 

G$=DRV$  + 

H$=DRV$  + 

ST$="AUTOVON 

CAT1$="B4W5" 

CAT2$="BESS" 

CAT4$-"CBESM 

CAT5$="CAEC" 

CAT6$="IAEC" 

CAT7$="IDMS" 

CAT8$="BDMS" 

GOSUB  4340 

GOTO  6190 

CLS:  WIDTH  80 

PRINT 

PRINT 

PRINT  " 

PRINT  " 

PRINT 


"VONNODE" 

"VONNAR" 

"DLEGEND" 

i 


THE  MINIMUM  ESSENTIAL  EMERGENCY  COMMUNICATIONS  NETWORK" 

System  Description  " 
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7710  PRINT 

7720  PRINT  "     The  MEECN  systems  are  those  communication  systems  specifically" 

7730  PRINT  "designed  to  survive  and  provide  a  communications  capability 

throughout" 
7740  PRINT  "a  transattack  environment. 
7750  PRINT 
7760  PRINT  "     The  MEECN  Supporting  Systems  are  expected  to  provide  some 

degree" 
7770  PRINT  "of  survivability  in  a  transattack  and  postattack  nuclear 

environment" 
7780  PRINT  "and  can  significantly  enhance  the  probability  that  JCS  messages 

will  be"  ' 
7790  PRINT  "delivered  to  the  forces  in  a  precise  and  timely  manner.   They  are"" 
7800  PRINT  "comprised  of  voice  and  record  special-purpose  and  common-user  com-" 
7810  PRINT  "munication  networks  and  systems  of  the  Defense  Communications 

System" 
7820  PRINT  "(DCS),  the  Unified  and  Specified  Commands,  and  the  Military 

Services.  " 
7830  PRINT  "For  the  most  part,  they  are  fixed  ground-based  systems  which 

employ  a" 
7840  PRINT  "mixture  of  wireline  and  radio-frequency  (RF)  transmission  media." 
7850  PRINT 

7860  INPUT  "PRESS  RETURN  WHEN  READY   ",A$ 
7870  CLS 

7880  PRINT  "  MEECN  SYSTEMS" 

7890  PRINT 
7900  PRINT 
7910  PRINT 

7920  PRINT  "  Current  MEECN  Systems  (1983)" 

7930  PRINT 
7940  PRINT 

7950  PRINT  "  Survivable  VLF/LF  Transmission  Systems" 

7960  PRINT  "  WWABNCP  HF  System" 

7970  PRINT  "  WWABNCP  UHF  System" 

7980  PRINT  "  Emergency  Rocket  Communication  System  (ERCS)" 

7990  PRINT  "  AFSATCOM" 

8000  PRINT 
8010  PRINT 

8020  PRINT  "  Next-Generation  Improvements  (1984-1985)" 

8030  PRINT 
8040  PRINT 

8050  PRINT  "  VLF/LF  Transmission  Systems  Upgrade" 

8060  PRINT  "  AFSATCOM  Upgrades" 

8070  PRINT  "  WWABNCP  HF  Equipment  Upgrade" 

8080  PRINT 

8090  INPUT  "PRESS  RETURN  WHEN  READY   ",C$ 
8100  CLS: SCREEN  0: COLOR  14,0,0 
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8110  PRINT 

8120  PRINT 

8130  PRINT 

8140  PRINT  "Select  one  of  the  following  options  below:" 

8150  PRINT 

8160  PRINT  "       1.  WWABNCP  UHF  Network    " 

8170  PRINT  "       2.  WWABNCP  HF  Network  Members  and  Authorized  Users" 

8180  PRINT  "       3.  WWABNCP  HF  Network  Configuration,  NEACP  NCS" 

8190  PRINT  "       4.  WWABNCP  HF  Network  Configuration,  SAC  ABNCP  NCS" 

8200  PRINT  "       5.  HF  AUTODIN  Access  Stations" 

8210  PRINT  "       6.  QUIT  " 

8220  PRINT 

8230  PRINT 

8240  INPUT  "OPTION:  ";Q 

8250  IF  Q  =  6  THEN  6200 

8260  IF  Q  =  1  THEN  8320 

8270  IF  Q  =  2  THEN  8440 

8280  IF  Q  =  3  THEN  8480 

8290  IF  Q  =  4  THEN  8600 

8300  IF  Q  =  5  THEN  8720 

8310  GOTO  7650 

8320  CLS 

8330  F$=DRV$  +  "MEENODE" 

8340  G$=DRV$  +  "MEENAR" 

8350  H$=DRV$  +  "DLEGEND" 

8360  ST$="MEECN" 

8370  CAT1$="CC" 

8380  CAT2$="BTWCP" 

8390  CAT5$="GEP" 

8400  CAT7$="LCCW" 

8410  A  =  0 

8420  GOSUB  4480 

8430  GOTO  8090 

8440  X$=DRV$  +  "MEECMEM.TXT" 

8450  SET  =  0 

8460  GOSUB  1090 

8470  GOTO  8100 

8480  CLS 

8490  N$=DRV$  +  "HFSITE1" 

8500  GOSUB  1460 

8510  OPEN  "I",#1,DRV$  +  "HFNAR1" 

8520  IF  E0F(1)  THEN  8560 

8530  INPUT  #1,R0W,C0L,A$ 

8540  LOCATE  ROW, COL: PRINT  A$ 

8550  GOTO  8520 

8560  CLOSE 

8570  LOCATE  24,1 
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8580  INPUT  "PRESS  RETURN  WHEN  READY   ",T$ 

8590  GOTO  8100 

8600  CLS 

8610  N$=DRV$  +  "HFSITE2" 

8620  GOSUB  1460 

8630  OPEN  "I",#1,DRV$  +  "HFNAR2" 

8640  IF  EOF(l)  THEN  8680 

8650  INPUT  #l,ROW,COL,A$ 

8660  LOCATE  ROW, COL: PRINT  A$ 

8670  GOTO  3640 

8680  CLOSE 

8690  LOCATE  24,1 

8700  INPUT  "PRESS  RETURN  WHEN  READY   ",Y$ 

8710  GOTO  8100 

8720  CLS 

8730  X$=DRV$  +  "HFDIN.TXT" 

8740  GOSUB  1090 

8750  GOTO  8100 

8760  N$  =  DRV$  +  "JCSAN" 

8770  GOSUB  1460 

8780  OPEN  "I",#1,DRV$  +  "JCNAR" 

8790  IF  EOF(l)  THEN  GOTO  8830 

8800  INPUT  #1,  ROW, COL,  S$ 

8810  LOCATE  ROW, COL: PRINT  S$ 

8820  GOTO  8790 

8830  CLOSE 

8840  LOCATE  24, 1:  INPUT"DO  YOU  WISH  TO  SEE  A  LISTING  OF  CENTERS";C$ 

8850  IF  C$  =  "N"  THEN  6190 

8860  CLS 

8870  PRINT  "COMMUNICATION  CENTERS        PRIMARY  LINES         SECONDARY 

LINES" 
8880  OPEN  'T\#1,DRV$  +  "JCNAR1" 
8890  I  =  0 

8900  IF  I  =  12  THEN  8950 
8910  INPUT  #1,  C$,D$,E$ 

8920  PRINT  C$;"  "D$; "  "E$ 

8930   1=1+1 
8940  GOTO  8900 

8950  PRINT:  PRINT  "REMOTE  CONTROL  CENTERS" 
8960  IF  EOF(l)  THEN  9000 
8970  INPUT  #1,A$,AA$ 
8980  PRINT  A$;"     "AA$ 
8990  GOTO  8960 
9000  CLOSE 

9010  LOCATE  24, 1:  INPUT"PRESS  RETURN  WHEN  READY"; C$ 
9020  GOTO  6190 
9030  CLS 
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9040  F$=DRV$  +  "DSCSNODE" 

9050  E$=DRV$  +  "DSCSLINK" 

9060  G$=DRV$  +  "DSCSNAR" 

9070  H$=DRV$  +  "DLEGEND" 

9080  ST$="DSCS" 

9090  CAT9$="ESAT" 

9100  CAT2$="TERM" 

9110  A  =  0 

9120  GOSUB  4480 

9130  GOTO  6190 

9140  CLS 

9150  N$=DRV$  +  "WAWSITE" 

9160  GOSUB  1460 

9170  OPEN  'T\#1,DRV$  +  "WAWSNAR" 

9180   IF  EOF(l)  THEN  9220 

9190   INPUT  #1,R0W,C0L,A$ 

9200  LOCATE  ROW, COL: PRINT  A$ 

9210  GOTO  9180 

9220  CLOSE 

9230  LOCATE  24,1 

9240  INPUT  "PRESS  RETURN  WHEN  READY  ";S$ 

9250  GOTO  6190 

9260  END 

9270  REM************  NASA  COMMUNICATIONS  SYSTEM  ****************** 

9280  CLS:  WIDTH  80 

9290  PRINT 

9300  PRINT  TAB(15)"  NASA  COMMUNICATIONS  NETWORK  " 

9310  PRINT  TAB(15)"  (NASCOM)  " 

9320  PRINT 

9330  PRINT  TAB(IO)"     The  NASCOM  network  is  a  global  point-to-point  ground" 

9340  PRINT  TAB( 10)"communications  system  developed  to  support  manned  space  " 

9350  PRINT  TAB(10)"f light  and  unmanned  scientific  satellite  missions  of  the  " 

9360  PRINT  TAB(10)"National  Aeronautics  and  Space  Administration  (NASA)  OF  the" 

9370  PRINT  TAB(10)"United  States  of  America.  " 

9380  PRINT 

9390  INPUT  "PRESS  RETURN  WHEN  READY"; W$:  PRINT 

9400  CLS: PRINT 


1     Terrestrial-based  Spaceflight  Tracking  and  Data" 
'Acquisition  Network  (STDAN)  stations  and  the  single  " 
'ground  station  facility  at  White  Sands  Missle  Range  " 
'(WSMR),  New  Mexico,  which  operates  with  NASA'S  Track-" 
'ing  and  Data  Relay  Satellite  System  (TDRSS) — geostational" 
'orbit-based  tracking  satellites  at  179  degrees  west,  79" 
9470  PRINT  TAB(10)"degrees  west,  and  41  degrees  west  longitude  respectively — " 
9480  PRINT  TAB(10)"are  interconnected  by  leased  long-line  communications  cir-" 
9490  PRINT  TAB(10)"cuits  (NASCOM)  using  a  combination  of  satellites  (INTELSAT/1 
9500  PRINT  TAB(10)"DOMSAT),  submarine  cables,  landline  cables,  and  wideband  " 


9410  PRINT  TAB(10) 

9420  PRINT  TAB(10) 

9430  PRINT  TAB(IO) 

9440  PRINT  TAB(IO) 

9450  PRINT  TAB(IO) 

9460  PRINT  TAB(IO) 
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9510 
9520 

9530 
9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9640 
9650 
9660 
9670 
9680 
9690 
9700 
9710 
9720 
9730 
9740 
9750 
9760 
9765 
9770 
9780 
9790 
9800 
9810 
9820 
9830 
9840 
9850 
9860 
9870 
9880 
9890 
9900 
9910 
9920 
9930 
9940 
9950 


PRINT  TAB(10)"radio  microwave  systems. 

PRINT  TAB(IO)"     The  hub  of  this  system  is  the  telemetry 

(ANALOG/DIGITAL)" 
PRINT  TAB( 10)"information  switching  computer  and 
PRINT  TAB(10)"itoring,and  patching  facilities  at 
PRINT  TAB(10)"Goddard  Space  Flight  Center  (GSFC) 
PRINT 


other  conferencing,  mon 
the  acilities  at  the  " 
at  Greenbelt,  Md. " 


_u 


INPUT  "RETURN  WHEN  READY 

CLS 

PRINT  " 

PRINT 

PRINT 

PRINT  " 

PRINT 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT:  PRINT 

INPUT  "OPTION:  ";Q 

CLS:  PRINT:  PRINT 

IF  Q  =  6  THEN  GOTO 

IF  DRV$>"B:"  THEN 


",A$ 
(NASCOM)      " 

SELECT  ONE  OF  THE  FOUR  OPTIONS  BELOW: 


1. 
2. 

3. 

4. 
5. 
6. 


NASCOM  TRUNKING  NETWORK   " 

LISTING  OF  LEASED  COMMERCIAL  SATELLITE  EARTH  ' 

STATIONS  SUPPORTING  NASCOM     " 

LISTING  OF  COMMERCIAL  SATELLITES  TRANSPORTING 

NASCOM  CIRCUITS  " 

DOMSAT  SATCOM  BROADCAST  SYSTEM  FOR  TDRSS     ' 

STDAN, NASCOM, AND  TDRSS  NETWORKS" 

QUIT 


4000 
9770 


INPUT 
CLS 
IF  Q 


'ENTER  DISK  18  INTO  THE  B-DRIVE  AND  PRESS  RETURN"; E$ 


=  1 
=  2 
=  3 
=  4 
=  5 
9580 


THEN 
THEN 
THEN 
THEN 
THEN 


9840 
9930 
9960 
9990 
10110 


IF 

IF 

IF 

IF 

GOTO 

CLS 

N$=DRV$  +  "TRUNKSITE" 

GOSUB  1460 

S$=DRV$  +  "TRUNKNAR" 

GOSUB  13180 

LOCATE  24,1: PRINT  "PRESS 

INPUT  G$ 

GOTO  9580 

GOTO  9580 

X$  =  DRV$  +  "NASANAR" 

GOSUB  1090 

GOTO  9580 


RETURN  WHEN  READY1 
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9960  X$  =  DRV$  +  "NASA2NAR" 

9970  GOSUB  1090 

9980  GOTO  9580 

9990  N$=DRV$  +  "NASASITE" 

10000  CLS 

10010  GOSUB  1460 

10020  OPEN  "I",#1,DRV$  +  nNASA3NAR" 

10030  IF  EOF(l)  THEN  10070 

10040  INPUT  #1,R0W,C0L,A1$ 

10050  LOCATE  ROW, COL:  PRINT  Al$ 

10060  GOTO  10030 

10070  CLOSE 

10080  LOCATE  24,1 

10090  INPUT  "PRESS  RETURN  WHEN  READY";  S$ 

10100  GOTO  9580 

10110  N$=DRV$  +  "TRACSIT" 

10120  GOSUB  1460 

10130  OPEN  "I",#1,DRV$  +  "TRACNAR" 

10140  IF  EOF(l)  THEN  10190 

10150  INPUT  #1,R0W,C0L,A1$ 

10160  LOCATE  ROW, COL: PRINT  Al$ 

10170  GOTO  10140 

10180  LOCATE  24, 1: INPUT'PRESS  RETURN  WHEN  READY"; A$ 

10190  CLOSE 

10200  LOCATE  24, 1: INPUT"PRESS  RETURN  WHEN  READY";A$ 

10210  GOTO  9580 

1  [)??D  RFM  ******************************************* 

10230  PAD$="         G  S  A  Systems  " 

10240  GOSUB  650 

10250  TES=0 

10260  GOSUB  580 

10270  PRINT 

10280  PRINT  "      GSA  SYSTEMS  AVAILABLE 

10290  PRINT  " 

10300  PRINT  " 

10310  PRINT  " 

10320  PRINT  " 

10330  PRINT  " 

10340  PRINT  " 

10350  PRINT 

10360  COLOR  14,0,0: PRINT  "  ENTER  OPTION  DESIRED  "; 

10370  INPUT  T 

10380  PRINT 

10390  CLS 

10400  IF  T  =  3  THEN  4000 

10410  IF  DRV$>"B:"  THEN  10430 

10415  PRINT  "  ENTER  DISC  NO.  S-17  IN  THE" 


************** 


1.  Federal  Telephone  System 

2.  FTS  Matrix 

3.  QUIT 


-^ 


10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 


INPUT  "  B-DRIVE  AND  ENTER  RETURN"; D$ 

WIDTH  80 

IF  T  =  1  THEN  10470 

IF  T  =  2  THEN  10580 

GOTO  10220 

F$=DRV$  +  "FTSNODE" 

G$=DRV$  +  "FTSNAR" 

H$=DRV$  +  "LEGEND" 

E$=DRV$  +  "FTSLINK" 

ST$="FTS" 

CATl$="SS-2" 

CAT2$="SS-1" 

CAT3$="SS-3" 

CLS 

GOSUB  4340 

GOTO  10230 

CLS 

X$=DRV$  +  "GSANAME.  TXT" 

SET=0 

GOSUB  1090 

GOTO  10230 

PAD$="  F  A  A  Systems  " 

GOSUB  650 

TES=0 

GOSUB  580 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

COLOR  14,0,0: PRINT  "  ENTER  OPTION  DESIRED 

INPUT  T 

PRINT 

CLS 

IF  T  =  1  THEN  10820 

IF  T  =  2  THEN  4000 

GOTO  10640 

F$=DRV$  +  "FAANODE" 

E$=DRV$  +  "FAALINK" 


FAA  SYSTEMS  AVAILABLE 


1.  FAA  HF  RADIO  SYSTEM 


2.  QUIT 


G$=DRV$  + 
H$=DRV$  + 
ST$="FAA" 
CAT1$="REG0" 
CAT2$="NAFEC" 


"FAANAR" 
"LEGEND" 
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10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 


************************************************* 


650 


580 


CAT5$="ARTCC" 

CAT8$="BACK" 

CLS 

GOSUB  4340 

GOTO  10630 

END 

REM 

PAD$=" 

GOSUB 

TES=0 

GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

COLOR 

INPUT 

PRINT 

CLS 


FEMA  Systems 


FEMA  SYSTEMS  AVAILABLE 

1.  Emergency  Broadcast  System  (EBS) 

2.  FEMA  Regional  Maps 

3.  FEMA  National  Teletype  System 

4.  FEMA  National  Radio  System 

5.  FEMA  National  Voice  System 

6.  QUIT 


14,0,0: PRINT  "  ENTER  OPTION  DESIRED  "; 
T 


IF 
IF 
IF 
IF 
IF 


1  THEN  11220 

2  THEN  12620 

3  THEN  13250 

4  THEN  13510 

5  THEN  13380 

6  THEN  4000 


IF  T  = 
GOTO  10950 

DCM  ************************************************* 


CLS: SCREEN 

PRINT  " 

PRINT  " 

PRINT 

PRINT  " 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


0:WI 
THE 


"  The 
"vated,  c 
"of  volun 
"(audio  o 
"telephon 
"is  desig 
"with  the 
"broadcas 


DTH  40: COLOR  14,0,0 
EMERGENCY  BROADCAST  SYSTEM" 
System  Description" 


National-lev 
onsists  of  a 
tary  parti ci 
nly)  station 
e  company  ci 
ned  to  maint 
public  duri 
ting  emergen 


el  EBS,  when  acti-" 

nationwide  network" 
pating  radio  and  TV" 
s  interconnected  by" 
rcuitry.  The  system" 
ain  communications" 
ng  an  emergency  by" 
cy  instructions," 


news, 
'sages. 


Governor's  and  Presidential  mes-" 
ii 
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11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11495 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IF 

IF 


'SELECT  ONE  OF  THE  FOLLOWING  OPTIONS" 

1.  Activation  Procedures" 

2.  (300)  Network  (Telephone)" 

3.  Contacts  List" 

4.  (500)  Network  (Teletype)" 

5.  Primary  Relay  Stations  " 

6.  QUIT" 


"ENTER 

TI 
TI=6  THEN 
DRV$>"B:" 


OPTION  DESIRED 


GOTO  10960 

THEN  11510 
PRINT  "ENTER  DISC  NO.  S-18  IN  THE" 
INPUT  "B-DRIVE  AND  ENTER  RETURN"; D$ 
WIDTH  40 

IF  TI=1  THEN  GOTO  11570 
IF  TI=2  THEN  GOTO  11880 
IF  TI=3  THEN  GOTO  12290 
IF  TI=4  THEN  GOTO  12060 
IF  TI=5  THEN  GOTO  12350 
CLS: SCREEN  0: COLOR  14,0,0 
N$=DRV$  +  "EBSCHT" 
CLS 

GOSUB  1460 
S$=DRV$  +  "EBSCHTS" 
GOSUB  13180 
LOCATE  1,1 
PRINT 

PRINT  CHR$(218); 
FOR  1=1  TO  26 
PRINT  CHR$(196); 
NEXT  I 

PRINT  CHR$(191) 
FOR  1=1  TO  8 

PRINT  CHR$( 179):  LOCATE  2+1,28:  PRINT  CHR$(179) 
NEXT  I 

PRINT  CHR$(192); 
FOR  1=1  TO  26 
PRINT  CHR$(196); 
NEXT  I 

PRINT  CHR$(217) 
PRINT 
PRINT 

INPUT  "  SELECTION  ";TT$ 
IF  TT$="0"  THEN  GOTO  11220 
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11820  IF  VAL(TT$)  <  0  OR  VAL(TT$)  >  6  THEN  GOTO  11570 

11830  PASS$=TT$ 

11840  SET=1 

11850  X$=DRV$  +  "EBSDETAI" 

11860  GOSUB  1090 

11870  GOTO  11570 

11880  CLS 

11890  N$="USAOUT.  TXT" 

11900  CLS 

11910  GOSUB  1460 

11920  N$=DRV$  +  "EBS300C" 

11930  GOSUB  1460 

11940  S$=DRV$  +  "EBS300S" 

11950  GOSUB  13180 

11960  LOCATE  23,1 

11970  PRINT  "DO  YOU  WISH  TO  SEE  NARRATIVE  DATA  ?  " 

11980  INPUT  "ENTER  Y  FOR  YES  OR  N  FOR  NO  ",ANS$ 

11990  PRINT  CHR$(27);"S1" 

12000  IF  ANS$="N"  THEN  GOTO  11220 

12010  PASS$="7" 

12020  X$=DRV$  +  "EBSDETAI" 

12030  SET=1 

12040  GOSUB  1090 

12050  GOTO  11220 

12060  CLS 

12070  N$="USAOUT.  TXT" 

12080  CLS 

12090  GOSUB  1460 

12100  N$=DRV$  +  "EBS500C" 

12110  GOSUB  1460 

12120  S$=DRV$  +  "EBS500S" 

12130  GOSUB  13180 

12140  INPUT  "Detail  on  Next  Page.  Enter  C  to  Continue  or  R  to  Return  to  menu  ": 

ANS$ 

12150  IF  ANS$="R"  THEN  GOTO  11210 

12160  X$=DRV$  +  "EBSDETAI" 

12170  PASS$="8" 

12180  SET=1 

12190  GOSUB  1090 

12200  CLS 

12210  INPUT  "ENTER  R  TO  RETURN  TO  MAP,  M  FOR  MENU  OR  N  FOR  NARRATIVE  ";ANS$ 

12220  IF  ANS$="R"  THEN  GOTO  12060 

12230  IF  ANS$="M"  THEN  GOTO  11210 

12240  PASS$="9" 

12250  SET=1 

12260  GOSUB  1090 

12270  GOTO  11210 
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12280 
12290 
12300 
12310 
12320 
12330 
12340 
12350 
12360 
12370 
12380 
12390 
12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 
12510 
12520 
12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12680 
12690 
12700 
12710 
12720 
12730 
12750 


ii. 


L$ 


;R$ 


T$ 


GOTO  11220 

CLS 

PASS$="10" 

X$=DRV$  +  "EBSDETAI" 

SET=1 

GOSUB  1090 

GOTO  11220 

CLS 

PRINT"PRIMARY  RELAY  STATIONS" 

PRINT: PRINT 

OPEN  "I",#1,DRV$  +  "PRADIO" 

K=l 

J=4 

IF  EOF(l)  THEN  12590 

INPUT  #1,S$,R$,L$,T$ 

PRINT  "  STATE:   ";$$ 

J=J+1 

PRINT  "  RADIO  STATION: 

J=J+1 

PRINT  "  LOCATION:   "; 

J=J+1 

PRINT  "  TELEPHONE  NO: 

PRINT 

N=INT(51/J) 

K=K+1 

IF  K>N  THEN  12550 

GOTO  12410 

INPUT  "ENTER  C  TO  CONTINUE,  Q  TO  QUIT";A$ 

IF  A$="Q"  THEN  12590 

CLS 

GOTO  12390 

CLOSE 

INPUT  "PRESS  RETURN  WHEN  READY"; C$ 

GOTO  11220 

Q  CM  *********************************************** 

CLS: SCREEN  0: WIDTH  40:  COLOR  14,1,0 

PRINT 

PRINT  "  REGIONAL  MENU 

PRINT  " 

PRINT  "    WHAT  REGION  DO  YOU  WANT  TO  SEE? 

PRINT  " 

PRINT  "  REGION  STATES 

PRINT  " 

PRINT  "   1.   ME,  NH,  MA,  VT,  RI ,  CT 

PRINT  "   2.   NY,  NJ,  PR,  VI 

PRINT  "   3.   PA,  WV,  VA,  MD,  DC(NCR),  DE 

PRINT  "   4.    KY,  TN,  NC,  SC,  GA,  AL,  MS,  FL 
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12770 
12780 
12790 
12800 
12810 
12820 
12830 
12840 
12850 
12860 
12870 
12880 
12890 
12900 
12905 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 


14,0,0: 
R 


PRINT  "   5. 

PRINT  "   6. 

PRINT  "   7. 

PRINT  "   8. 

PRINT  "   9. 

PRINT  "  10. 

PRINT  "  11. 

PRINT 

COLOR 

INPUT 

PRINT 

IF  R=ll  THEN 

WIDTH  80 

IF  DRV$>"B:" 

INPUT  " 

RESET 

CLS 

IF  R=l 

R=2 

R=3 

R=4 

R=5 

R-6 

R=7 

R=8 

R=9 

R=10 


MI, 
TX, 
IA, 

ND, 
NV, 
WA, 
Quit 

PRINT 


WI, 
OK, 
MO, 
SD, 
CA, 
OR, 


IL, 

AR, 
NE, 
MT, 
AZ, 
ID, 


IN, 

LA, 

KS 

WY, 

HI, 

AK 


OH,  MN 


UT, 

GU, 


CO 
AS 


ENTER  SELECTED  REGION"; 


GOTO  10960 

THEN  12910 
PLACE  DISC 


NO.  16  IN  DISC  DRIVE  B  AND  ENTER  RETURN"; RET$ 


R  <  1  THEN  GRAPH:  GOTO 
SCREEN  2:  COLOR  14,0,0 


EN  N$=DRV$  ■ 
IF  R=2  THEN  N$=DRV$  - 
IF  R=3  THEN  N$=DRV$  - 
IF  R=4  THEN  N$=DRV$  - 
IF  R=5  THEN  N$=DRV$  ■ 
IF  R--6  THEN  N$=DRV$  ■ 
IF  R=7  THEN  N$=DRV$  ■ 
IF  R=8  THEN  N$=DRV$  ■ 
IF  R=9  THEN  N$=DRV$  - 
IF  R=10  THEN  N$=DRV$ 
IF  R  >  11  OR 
WIDTH  80:  CLS: 
PRINT 
PRINT  " 
GOSUB  1460 
FOR  1=1  TO  22 
PRINT  "." 
NEXT  I 

PRINT  "DO  YOU  WANT  REGION 
INPUT  "ENTER  Y  FOR  YES  OR 
IF  W$="N"  THEN  GOTO  12630 
SET=0 

X$  =  DRV$  +  "STATLIST" 
GOSUB  14950 
GOTO  12630 
OPEN  "I",  #1,S$ 
IF  EOF(l)  THEN  GOTO  13230 
INPUT  #1,  ROW, COL, A$ 
LOCATE  ROW, COL:  PRINT  A$ 
GOTO  13190 


"REGI0N1.TXT" 
"REGI0N2.TXT" 
"REGI0N3.TXT" 
"REGI0N4.TXT" 
"REGI0N5.TXT" 
"REGI0N6.TXT" 
"REGI0N7.TXT" 
"REGI0N8.TXT" 
"REGI0N9.TXT" 
"REGION10.TXT" 


VAR$="R1" 

VAR$="R2" 

VAR$="R3" 

VAR$="R4" 

VAR$="R5" 

VAR$="R6" 

VAR$="R7" 

VAR$="R8" 

VAR$="R9" 

:  VAR$="R10" 

12850 


REGION 


R;"INFO?" 
FOR  NO";W$ 
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13230  CLOSE 

13240  RETURN 

13250  F$=DRV$  +  "NATSNODE" 

13260  G$=DRV$  +  "NATSNAR" 

13270  H$=DRV$  +  "DLEGEND" 

13280  E$=DRV$  +  "NATSLINK" 

13290  CAT2$="CRC" 

13300  CAT4$="FRC" 

13310  CAT5$="SCD0" 

13320  ST$="FNATS" 

13330  PRINT  "Place  Disk  No.  D-18  into  the  B-drive  " 

13340  INPUT  "and  press  RETURN.  ",B$ 

13350  CLS 

13360  GOSUB  4340 

13370  GOTO  10950 

13380  E$=DRV$  +  "NAVSLINK" 

13390  F$=DRV$  +  "NAVSNODE" 

13400  G$=DRV$  +  "NAVSNAR" 

13410  H$=DRV$  +  "DLEGEND" 

13420  CAT1$="ASC" 

13430  CAT2$="FRC" 

13440  CAT5$="SCDO" 

13450  ST$="FNAVS" 

13460  PRINT  "Place  Disk  No.  D-18  into  the  B-Drive" 

13470  INPUT  "and  press  RETURN.  \B$ 

13480  CLS 

13490  GOSUB  4340 

13500  GOTO  10950 

13510  E$=DRV$  +  "NARSLINK" 

13520  F$=DRV$  +  "NARSNODE" 

13530  G$=DRV$  +  "NARSNAR" 

13540  H$=DRV$  +  "DLEGEND" 

13550  CAT1$  =  "ASC" 

13560  CAT2$="FRC" 

13570  CAT4$="NET" 

13580  CAT5$="SCDO" 

13590  ST$="FNARS" 

13600  PRINT  "Place  Disk  No.  D-18  into  the  B-drive" 

13610  INPUT  "and  press  RETURN. ",B$ 

13620  CLS 

13630  GOSUB  4340 

13640  GOTO  10950 

I 0£ :n  DCM  ****************** *************  ******************** ****** 

13660  PAD$="  Commercial  Communications  Systems  " 

13670  GOSUB  650 

13680  TES=0 

13690  GOSUB  580 
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13700  PRINT 

13710  PRINT  "     Commercial  Systems  available: 

13720  PRINT  " 

13730  PRINT  "   1.  Comm.  Sat.  Conus 

13740  PRINT  "   2.  MCI  Microwave  System 

13750  PRINT  "   3.  MCI  Fiber  Optic  Routes 

13760  PRINT  "   4.  QUIT 

13770  PRINT 

13780  COLOR  14,0,0: PRINT  "  ENTER  OPTION  DESIRED 

13790  INPUT  T 

13800  PRINT 

13810  CLS 

13820  IF  T=4  THEN  4000 

13830  IF  T=l  THEN  13870 

13840  IF  T=2  THEN  14040 

13850  IF  T=3  THEN  14150 

13860  GOTO  13650 

13870  CLS 

13880  N$="USAOUT. TXT" 

13890  GOSUB  1460 

13900  N$=DRV$  +  "COMSAT.TXT" 

13910  GOSUB  1460 

13920  S$=DRV$  +  "COMSATD.TXT" 

13930  GOTO  13970 

13940  LOCATE  23,1 

13950  INPUT;"  PRESS  RETURN  WHEN  READY  ";B 

13960  GOTO  13660 

13970  OPEN  "I",  #1,S$ 

13980  IF  EOF(l)  THEN  GOTO  14020 

13990  INPUT  #1,  ROW, COL, A$ 

14000  LOCATE  ROW, COL: PRINT  A$ 

14010  GOTO  13980 

14020  CLOSE 

14030  GOTO  13940 

14040  F$=DRV$  +  "MCINODE" 

14050  G$=DRV$  +  "MCINAR" 

14060  H$=DRV$  +  "LEGEND" 

14070  E$=DRV$  +  "MCILINK" 

14080  ST$="MCI" 

14090  CAT1$="TERM" 

14100  CAT2$="JUNC" 

14110  CAT3$="REPT" 

14120  CLS 

14130  GOSUB  4340 

14140  GOTO  13650 

14150  E$=DRV$  +  "MFOLINK" 

14160  F$=DRV$  +  "MFONODE" 
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14170  G$=DRV$  +  "MFONAR" 

14180  H$=DRV$  +  "LEGEND" 

14190  ST$="MCI  FO" 

14200  CAT1$="TERM" 

14210  CAT2$="JUNC" 

14220  CAT7$="TAND" 

14230  GOSUB  4340 

14240  GOTO  13650 

14250  END 

i^jocn  QPM  ***************************************************** 

14270  PAD$="     Critical  Comm.  Facilities     " 

14280  GOSUB  650 

14290  TES=0 

14300  GOSUB  580 

14310  PRINT 

14320  PRINT  "  Key  Facility  List" 

14330  PRINT 


1.  Conus  CCF's 

2.  QUIT 


14340  PRINT 

14350  PRINT 

14360  PRINT 

14370  PRINT 

14380  PRINT  "  ENTER  OPTION  DESIRED  "; 

14390  INPUT  T 

14400  PRINT 

14410  CLS 

14420  IF  T  =  1  THEN  14450 

14430  IF  T  =  2  THEN  4000 

14440  GOTO  14260 

14450  CLS 

14460  F$=DRV$  +  "CRITFAX" 

14470  G$=DRV$  +  "CRITNAR" 

14480  H$=DRV$  +  "LEGEND" 

14490  ST$="CRITICAL" 

14500  CAT2$="ALL" 

14510  GOSUB  4340 

14520  GOTO  14260 

14530  END 

14540  IF  ANS$="P"  THEN  14800 

14550  CLS: WIDTH  80 

14560  PRINT 

14570  PRINT"  ";ST$;"  FACILITIES  LIST" 

14580  PRINT 

14590  PRINT"  U. S.  MAP  REGION" 

14600  PRINT"       FACILITY        LAT   LON    X    Y    X    Y   SYS 

STAT   CODE" 
14610  PRINT 
14620  K=0 
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14630  OPEN  "I,,,#1,F$ 

14640  IF  EOF(l)  THEN  GOTO  14760 

14650  INPUT  #1,LAT,L0N,A$,X,Y,X1,Y1,STAT,SYS$,N0D 

14660  IF  LAT=0  AND  LON=0  THEN  14640 

14670  PRINT  A$;  TAB(24);  LAT;  TAB(30);  LON;  TAB(37);  X;  TAB(42);  Y;  TAB(47);  XI;  TAB(52); 

Yl;  TAB(58);  SYS$;  TAB(63);  STAT;  TAB(70);  NOD 
14680  K=K+1 

14690  IF  K<15  THEN  GOTO  14640 
14700  PRINT 

14710  INPUT  "ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT  ";C$ 
14720  IF  C$  =  "Q"  THEN  14760 
14730  PRINT 
14740  K=0 
14750  GOTO  14640 
14760  PRINT 
14770  CLOSE 

14780  INPUT  "PRESS  RETURN  WHEN  READY"; Q$ 
14790  GOTO  14940 
14800  WIDTH  40:CLS 

14810  INPUT  "POSITION  PAPER  AND  RETURN"; C$ 

14820  LPRINT  "  ";ST$;"  FACILITIES  LIST" 

14830  LPRINT 

14840  LPRINT  "  U.S.  MAP   REGION" 

14850  LPRINT  "       FACILITY        LAT   LON    X    Y    X    Y   SYS 

STATUS    CODE" 
4860  LPRINT 
14870  OPEN  "I",#1,F$ 
14880  IF  EOF(l)  THEN  GOTO  14930 
14890  INPUT  #1,LAT,L0N,A$,X,Y,X1,Y1,STAT,SYS$,N0D 
14900  IF  LAT=0  AND  LON=0  THEN  14880 
14910  LPRINT  A$;  TAB(24); LAT; TAB(30); LON; TAB(37); X; TAB(42); Y; TAB(47); XI; TAB(52); 

Yl; TAB(58); SYS$; TAB(64); STAT; TAB(70); NOD 
14920  GOTO  14880 
14930  CLOSE 
14940  RETURN 

14960  CLS: WIDTH  80 

14970  PRINT  "To  receive  information  concerning  a  category  enter  a  Y  for  yes." 

14980  PRINT  "Enter  RETURN  for  default,  for  all  categories  default  is  no." 

14990  PRINT 

15000  PRINT 

15010  INPUT  "  NAME";A$ 

15020  INPUT  "  STATUS"; B$ 

15030  INPUT  "  POSITION  TITLE"; C$ 

15040  INPUT  "  DDD  PHONE  NO. ";D$ 

15050  INPUT  "  FTS  PHONE  NO. ";E$ 

15060  INPUT  "  AUTOVON  PHONE  NO. "; F$ 
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15070 

INPUT  " 

HOME  ADDRESS"; G$ 

15080 

INPUT  " 

HOME  PHONE"; H$ 

15090 

CLS:  WIDTH 

80 

15100 

PRINT 

15110 

PRINT 

15120 

INPUT  "ENTER  S 

FOR  SCRI 

-OR  A  PAPER  LISTING";  L$ 

15130 

CLS 

15140 

IF  L$  =  "1 

=>"  THEN  15530 

15150 

PRINT  TLE$ 

15160 

PRINT 

15170 

OPEN  "I\i 

n,x$ 

15180 

K=l 

15190 

IF  EOF(l) 

THEN 

15500 

15200 

INPUT#1 , DI F$ , QAME$ , STATS , P$ , DDD$ , FTS$ 

,V0N$,HADD1$,HADD2$,HN0$ 

15210 

IF  VAR$="y 

\LL"  THEN  15230 

15220 

IF  DIF$<>] 

MR$  THEN  15190 

15230 

J=l 

15240 

IF  A$="Y" 

THEN 

PRINT 

"NAME: 

";QAME$ 

15250 

IF  A$="Y" 

THEN 

J=J+1 

15250 

IF  B$="Y" 

THEN 

PRINT 

"STATUS: 

";STAT$ 

15270 

IF  B$="Y" 

THEN 

J=J+1 

15280 

IF  C$="Y" 

THEN 

PRINT 

"POSITION: 

";P$ 

15290 

IF  C$="Y" 

THEN 

J=J+1 

15300 

IF  D$="Y" 

THEN 

PRINT 

"DDD  NO.: 

";DDD$ 

15310 

IF  D$="Y" 

THEN 

J=J+1 

15320 

IF  E$="Y" 

THEN 

PRINT 

"FTS  NO.: 

";FTS$ 

15330 

IF  E$="Y" 

THEN 

J=J+1 

15340 

IF  F$="Y" 

THEN 

PRINT 

"AUTOVON  NO.: 

";VON$ 

15350 

IF  F$="Y" 

THEN 

J=J+1 

15360 

IF  G$="Y" 

THEN 

PRINT 

"HOME  ADDRESS: 

";HADD1$ 

15370 

IF  G$="Y" 

THEN 

J=J+2 

15380 

IF  G$="Y" 

THEN 

PRINT 

ii 

";HADD2$ 

15390 

IF  H$="Y" 

THEN 

J=J+1 

15400 

IF  H$="Y" 

THEN 

PRINT 

"HOME  PHONE: 

";HNO$ 

15410 

PRINT 

15420 

N=INT(23/J) 

15430 

K=K+1 

15440 

IF  K>N  THEN  15460 

15450 

GOTO  15190 

15460 

INPUT  "ENTER  C 

TO  CONTINUE,  Q 

";Y$ 

15470 

IF  Y$="Q" 

THEN 

15500 

15480 

CLS 

15490 

GOTO  15180 

15500 

CLOSE 

15510 

INPUT  "PRESS  RETURN  WHEN  READY"; V$ 

15520 

RETURN 

15530 

REM*******************PAPER  I $T$****************** 
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15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
15630 
15640 
15650 
15660 
15670 
15680 
15690 
15700 
15710 
15720 
15730 
15740 
15750 
15760 
15770 
15780 
fo  on 


INPUT  "POSITION  PAPER  AND  ENTER  RETURN"; Q 

LPRINT  TLE$ 

LPRINT 

LPRINT 

OPEN  "I",#1,X$ 

IF  EOF(l)  THEN  15750 

INPUT  #1 , DI F$ , QAME$ , STAT$ , P$ , DDD$ , FTS$ , V0N$ , HADD1$ , HADD2$ , HNO$ 

IF  VAR$="ALL"  THEN  15640 

IF  DIF$<>VAR$  THEN  15590 


IF 
IF 


IF  A$="Y" 
IF  B$="Y" 
IF  C$="Y" 
IF  D$="Y" 
IF  E$="Y" 

F$="Y" 

G$="Y" 
IF  G$="Y" 
IF  H$="Y" 
LPRINT 
LPRINT 
GOTO  15590 
CLOSE 

INPUT  "PRINTING 
RETURN 
GOTO  4010 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 


NAME:          ' 

; QAME$ 

STATUS:        ' 

;  STAT$ 

POSITION:       ■ 

;P$ 

DDD  NO.:       ' 

;DDD$ 

FTS  NO. :       ' 

;FTS$ 

AUTOVON  NO. :    ' 

;VON$ 

HOME  ADDRESS:   ■ 

;HADD1$ 

; HADD2$ 

HOME  PHONE:     ' 

;HNO$ 

IS  COMPLETE.   PRESS  RETURN  WHEN  READY"; W$ 


Appendix  D 
NCSPOC.BAS  Listing 


************************************************** 


01  COMMON  DRV$ 

20  DIM  CODES(100),S(100),KOUNT(100) 

30  DEFDBL  N,M,C: LASTFILE$="  " 

35  GOTO  4000 

250  PAD$="         Main  Menu 

260  GOSUB  650 

270  TES=0 

280  GOSUB  580 

290  REM** 

300  PRINT 

310  PRINT 

320  PRINT 

330  PRINT 

340  PRINT 

350  PRINT 

360  PRINT 

370  PRINT 

380  PRINT 

390  PRINT 

400  COLOR 

410  PRINT 

420  INPUT 

430  IF  T= 

440  IF  T= 

450  LASTT 

460  PRINT 

470  WIDTH 

480  IF  T 

490  IF  T= 

500  IF  T= 

510  IF  T= 

520  IF  T= 

530  IF  T= 

540  IF  T= 

550  IF  T= 

560  IF  T= 

570  GOTO 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

14,0 
ii 

T 
6  OR 
LASTT 
=T 


P.O.  C.  Lists 

Emergency  Activation  Procedures 
Network  Status  Monitoring 
Damage  Assessment 
Resolution  of  Claim 
Zooming 

Word  Processing  (WordStar) 
NSC  Processing  Module 
QUIT 
,0: PRINT 
ENTER  OPTION  DESIRED"; 

T=7  THEN  460 
THEN  4000 


80 
■1  THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
■-7  THEN 
=8  THEN 
=9  THEN 
250 


CHAIN 
CHAIN 
CHAIN 
CHAIN 
CHAIN 
RUN 


"NCSPOC" 
"NCSACT" 
"NCSSTAT" 
"NCSDAM" 
"NCSCLAIM" 
NCSZOOM" 


3400 

CHAIN  "NCSNSC" 

SYSTEM 
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580  LOCATE  10,4: PRINT"  DATE  ": LOCATE  10,29: PRINT"  TIME  " 

600  LOCATE  11,2 

610  PRINT  DATE$ 

620  LOCATE  11,28 

630  PRINT  TIME$ 

640  RETURN 

6  5f)  DfM***  ***  *  ****************************************************** 

660  REM*  * 

670  REM*   This  Subroutine  produces  the  logo  box  for  the  menus.    * 
680  REM* 

690  D£M* ******************************  ************  ****************** 

700  SCREEN  0: WIDTH  40:  CLS 

710  PRINT 

720  COLOR  14,1,0 

730  PRINT  CHR$(201); 

740  FOR  1=1  TO  36 

750  PRINT  CHR$(205); 

760  NEXT  I 

770  PRINT  CHR$(187) 

780  PRINT  CHR$(186); 

790  FOR  1=1  TO  36 

800  PRINT"  "; 

810  NEXT  I 

820  PRINT  CHR$(186) 

830  PRINT  CHR$(186); 

840  PRINT"      NCS  EMERGENCY  TELECOMM.       "; 

850  PRINT  CHR$(186) 

860  PRINT  CHR$(186); 

870  PRINT"         MICRO  SUBSYSTEM         "; 

880  PRINT  CHR$(186) 

890  PRINT  CHR$(186); 

900  PRINT  PAD$;: PRINT  CHR$(186) 

910  PRINT  CHR$(186); 

920  FOR  1=1  TO  36 

930  PRINT"  "; 

940  NEXT  I 

950  PRINT  CHR$(186) 

960  PRINT  CHR$(200); 

970  FOR  1=1  TO  36 

980  PRINT  CHR$(205); 

990  NEXT  I 

1000  PRINT  CHR$(188) 

1010  PAD$="   " 

1020  COLOR  14,1,0 

1030  RETURN 

1040  CLS: WIDTH  80 

1050  PRINT"THIS  OPTION  IS  NOT  YET  AVAILABLE." 
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1060  INPUT"PRESS  RETURN  FOR  MENU. "; RET$ 

1070  CLS 

1080  RETURN 

1090  R£M********pj L E  RFAD************************** 

1100  SCREEN  0: CLS: WIDTH  80 

1110  IF  SET=0  THEN  1320 

1120  1=0 

1130  OPEN  "I",#1,X$ 

1140  IF  EOF(l)  THEN  1280 

1150  INPUT  #1,K$,A$ 

1160  IF  K$=PASS$  THEN  1180 

1170  GOTO  1140 

1180  1=1+1 

1190  IF  I>=20  THEN  1220 

1200  PRINT  A$ 

1210  GOTO  1140 

1220  PRINT 

1230  INPUT"ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT";C$ 

1240  IF  C$="Q"  THEN  1280 

1250  PRINT 

1260  1=0 

1270  GOTO  1140 

1280  CLOSE 

1290  PRINT 

1300  INPUT"ENTER  RETURN  TO  CONTINUE  "; R$ 

1310  GOTO  1450 

1320  OPEN  "I\#1,X$ 

1330  FOR  1=1  TO  20 

1340  LINE  INPUT  #1,A$ 

1350  IF  EOF(l)  THEN  1420 

1360  PRINT  A$ 

1370  NEXT  I 

1380  PRINT 

1390  INPUV'ENTER  C  TO  CONTINUE, Q  TO  QUIT";B$ 

1400  IF  B$<>"C"  AND  B$<>"Q"  THEN  1390 

1410  IF  B$="C"  THEN  1330 

1420  PRINT 

1430  INPUT"  PRESS  RETURN  WHEN  READY"; M$ 

1440  CLOSE  #\ 

1450  RETURN 

1460  dp_M************FI LE  pioT**************** 

1470  WIDTH  80: SCREEN  2:WIND0W  SCREEN  (0,0)-(640,250) 

1480  OPEN  "r,#l,N$ 

1490  IF  EOF(l)  THEN  2510 

1500  INPUT  #1,C,X,Y,Z,S,E 

1510  IF  C=0  THEN  1760  REM  **POINT 

1520  IF  C=l  THEN  1780  REM  **LINE 
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1530  IF  C=2  THEN  1800  REM  **CIRCLE 

1540  IF  C=3  THEN  1820  REM  **CLEAR  SCREEN 

1550  IF  C=4  THEN  1840  REM  **CLEAR  POINT 

1560  IF  05  THEN  1860  REM  **CLEAR  CENTER  OF  CIRCLE 

1570  IF  C=6  THEN  1880  REM  **BOX(UPPER  LEFT  CORNER) 

1580  IF  C=7  THEN  1910  REM  **BOX  (LOWER  RIGHT  CORNER) 

1590  IF  C=8  THEN  1930  REM  **SATELLITE 

1600  IF  C=9  THEN  1990  REM  **STAR 

1610  IF  C=10  THEN  2020  REM  **EARTH  STATION 

1620  IF  C=ll  THEN  2050  REM  **CITY  (BOX) 

1630  IF  C=12  THEN  2070  REM  **REMOVE  CENTER  OF  CIRCLE 

1640  IF  C=13  THEN  2090  REM  **TELEPHONE  SET 

1650  IF  C=14  THEN  2120  REM  **SET  UP  BLOCK  FILLER 

1660  IF  C=15  THEN  2140  REM  **CREATES  A  FILLED  BLOCK 

1670  IF  C=16  THEN  2160  REM  **CREATES  A  TRIANGLE 

1680  IF  C=17  THEN  2200  REM  **CREATES  A  BIG  TRIANGLE 

1690  IF  C=18  THEN  2260  REM  **CREATES  A  DIAMOND 

1700  IF  C=19  THEN  2320  REM  **CREATES  A  LARGE  BOX 

1710  IF  C=20  THEN  2340  REM  **WISHBONE 

1720  IF  C=21  THEN  2410  REM  **ASTERISK 

1730  IF  C=22  THEN  2460  REM  **AN  X 

1740  IF  C=23  THEN  2490  REM  **A  DASHED  LINE 

1750  GOTO  1490 

1760  PSET  (X,Y) 

1770  GOTO  1490 

1780  LINE  -(X,Y) 

1790  GOTO  1490 

1800  CIRCLE(X,Y),Z,,S,E, 13/32 

1810  GOTO  1490 

1820  CLS 

1830  GOTO  1490 

1840  CLS 

1850  GOTO  1490 

1860  CLS 

1870  GOTO  1490 

1880  X1=X 

1890  Y1=Y 

1900  GOTO  1490 

1910  LINE  (X1,Y1)-(X,Y),,B 

1920  GOTO  1490 

1930  CIRCLE  (X,Y),10, ,0,6. 28,1/2 

1940  LINE  (X-20,Y)-(X-10,Y) 

1950  LINE  (X,Y-5)-(X,Y-10) 

1960  LINE  (X+10,Y)-(X+20,Y) 

1970  LINE  (X,Y+5)-(X,Y+10) 

1980  GOTO  1490 

1990  LINE  (X,Y-2)-(X-4,Y+2):LINE  -(X+4.Y-1) 
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2000  LINE  ( 

X,Y-2)-(X+4,Y+2):  LINE  -(X-4.Y-1): LINE  -(X 

2010  GOTO  1 

.490 

2020  LINE  ( 

X,Y)-(X+10,Y-10):  LINE  -(X+20.Y):  LINE  -(X, 

2030  CIRCLE 

[  (X+20,Y-15),14,,2.36,5.5 

2040  GOTO  ] 

.490 

2050  LINE  ( 

X-2,Y-1)-(X+2,Y+1),,B 

2060  GOTO  ] 

.490 

2070  CLS 

2080  GOTO  ] 

.490 

2090  LINE  ( 

X,Y)-(X+12,Y): LINE  -(X+6.Y-6):  LINE  -(X,Y) 

2100  CIRCLE 

:  (X+6,Y-6),6,,0,3. 14 

2110  GOTO  ] 

.490 

2120  PAINT 

(X,Y),1 

2130  GOTO  ] 

.490 

2140  LINE  ( 

X1,Y1)-(X,Y),,B 

2150  GOTO  ] 

.490 

2160  LINE  ( 

X-2,Y)-(X+2,Y) 

2170  LINE  ( 

X-4,Y+1)-(X+4,Y+1) 

2180  PSET  ( 

X,Y~1) 

2190  GOTO  ] 

.490 

2200  PSET  ( 

X.Y-2) 

2210  LINE  ( 

X-2,Y-1)-(X+2,Y-1) 

2220  LINE  ( 

X-4,Y)-(X+4,Y) 

2230  LINE  ( 

X-6,Y+1)-(X+6,Y+1) 

2240  LINE  ( 

X-8,Y+2)-(X+8,Y+2) 

2250  GOTO  ] 

1490 

2260  PSET  ( 

X,Y) 

2270  PSET  ( 

X-2.Y) 

2280  PSET  ( 

X+2,Y) 

2290  PSET  ( 

X.Y-1) 

2300  PSET  ( 

;x,y+i) 

2310  GOTO  : 

L490 

2320  LINE  ( 

X-4,Y-2)-(X+4,Y+2),,B 

2330  GOTO  : 

L490 

2340  PSET  ( 

;x,y-2) 

2350  PSET  ( 

;x,y-d 

2360  PSET  ( 

:x,y) 

2370  LINE  ( 

;X-2,Y+1)-(X+2,Y+1) 

2380  PSET  I 

'X-4.Y+2) 

2390  PSET  I 

'X+4,Y+2) 

2400  GOTO  . 

L490 

2410  LINE  ( 

X+4,Y-2)-(X-4,Y+2) 

2420  LINE  ( 

'X-4,Y-2)-(X+4,Y+2) 

2430  LINE  ( 

'X-4,Y)-(X+4,Y) 

2440  LINE  ( 

rX,Y+2)-(X,Y-2) 

2450  GOTO 

L490 

2460  LINE  1 

;x+4,Y-2)-(X-4,Y+2) 

60 


2470  LINE  (X-4,Y-2)-(X+4,Y+2) 

2480  GOTO  1490 

2490  LINE-(X,Y), , ,50.  386 

2500  GOTO  1490 

2510  CLOSE 

2520  RETURN 

2530  RPM* ************ [AT/ LONG******************* 

2540  REM  CLS 

2550  REGION=R 

2560  SET=0 

2570  OPEN  "I", #1, "BOUNDARY" 

2580  IF  EOF(l)  THEN  GOTO  2610 

2590  INPUT  #1,LATD,LATU,L0NR,L0NL,REG 

2600  IF  REGION<>REG  THEN  2580 

2610  CLOSE  #1 

2620  IF  LAT>LATU  OR  LAT<LATD  THEN  2650 

2630  IF  LON>LONL  OR  LON<LONR  THEN  2650 

2640  GOTO  2680 

2650  IF  REGION>10  THEN  3380 

2660  REGION=R+(R*10) 

2670  GOTO  2570 

2680  OPEN  "r,#2,"LATFILE" 

2690  LA1=0 

2700  IF  EOF(2)  THEN  2810 

2710  INPUT  #2,  LA,  YVAL,REG 

2720  IF  REGION<>REG  THEN  2700 

2730  IF  LAT<=LA1  AND  LAT>=LA  THEN  2770 

2740  LA1=LA 

2750  YVAL1=YVAL 

2760  GOTO  2700 

2770  YL0W=YVAL 

2780  YHI=YVAL1 

2790  LATL0W=LA 

2800  LATHI=LA1 

2810  CLOSE  #2 

2820  OPEN  "r,#l,"LONFILE" 

2830  L0N1=0 

2840  IF  EOF(l)  THEN  2920 

2850  INPUT  #1,L0,C1,C2,REG 

2860  IF  REGION<>REG  THEN  2840 

2870  IF  L0N<=L0N1  AND  L0N>=L0  THEN  2920 

2880  LONl=LO 

2890  C11=C1 

2900  C21=C2 

2910  GOTO  2840 

2920  CLOSE  #1 

2930  IF  R=0  THEN  3070 
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2940  XLEFTU=YHI/C11+C21 

2950  XLEFTD=YL0W/C11+C21 

2960  XRITEU=YHI/C1+C2 

2970  XRITED=YL0W/C1+C2 

2980   L1=XRITE(J-XLEFTU 

2990  L2=XRITED-XLEFTD 

3000  G=(LONl-LON)/(LONl-LO) 

3010  XL=G*L2+XLEFTD 

3020  XU=G*L1+XLEFTU 

3030  D=(LAT-LATLOW)/(LATHI-LATLOW) 

3040  XD=CINT(XL-D*(XL-XU)) 

3050  YD=CINT(D*(YHI-YLOW)+YLOW) 

3060  GOTO  3390 

3070  RAD(1)=YL0W 

3080  RAD(2)=YHI 

3090  C1(1)=C11 

3100  C2(1)=C21 

3110  C1(2)=C1 

3120  C2(2)=C2 

3130  FOR  1=1  TO  2 

3140  K=0 

3150  IF  1=1  THEN  S=l 

3160  IF  1=2  THEN  S=3 

3170  FOR  J=S  TO  S+l 

3180  K=K+1 

3190  A=1/(C1(K)   2)+l 

3200  B=2*(174-C2(K))/C1(K)+2*514 

3210  C=(174-C2(K))     2-RAD(I)    2+514  2 

3220  Y1=(B+SQR(B  2-4*A*C))/(2*A) 

3230  Y2=(B-SQR(B  2-4*A*C))/(2*A) 

3240  IF  Yl>235  THEN  Y(J)=Y2 

3250  IF  Yl<=235  THEN  Y(J)=Y1 

3260  X(J)=Y(J)/C1(K)+C2(K) 

3270  NEXT  J 

3280  NEXT  I 

3290  DVAL=(L0N1-L0N)/(L0N1-L0) 

3300  XL=DVAL*(X(2)-X(1))+X(1) 

3310  YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320  XU=DVAL*(X(4)-X(3))+X(3) 

3330  YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340  SVAL=(LAT-LATL0W)/(LATHI-LATL0W) 

3350  XD=CINT(XL-SVAL*(XL-XU)) 

3360  YD=CINT(YL+SVAL*(YU-YL)) 

3370  GOTO  3390 

3380  SET=20 

3390  RETURN 

3400  CLS: WIDTH  80 
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3410 
3420 
3430 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4185 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 


SHELL  "WS 
CLS 
GOTO  250 

DCM     ********************************************** 


PAD$=" 

GOSUB  650 

TES=0 

GOSUB  580 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


POC  List 


Government 


1. 

3. 
5. 
7. 
9. 


2. 
4. 
6. 


Rosters  11.  EOC 


NCS 

FCC 

Agency  Rep. ' 

NCS  Recall 

State  Lists 
Industry 
10.  Pers 
12.  QUIT 
PRINT: COLOR  14,0,0: PRINT  " 
INPUT  T 
WIDTH  80 

IF  T  =  12  THEN  250 
IF  DRV$>"B:"  THEN  4210 
PRINT  "ENTER  DISC  NO.  D-16  IN  THE" 
INPUT  "B-DRIVE  AND  ENTER  RETURN"; B$ 
CLS 
IF  T 
IF  T 
IF  T 
IF  T 
IF  T 
IF  T 
IF  T 
IF  T 
IF  T 
IF  T 
IF  T 


NASA 

OSTP 

EOC 

DGCC  Recall 


ENTER  OPTION  DESIRED  "; 


1  THEN  5940 

2  THEN  8310 
THEN  6640 
THEN  GOSUB  1040 
THEN  6230 
THEN  6990 
THEN  7280 

8  THEN  7310 

9  THEN  7900 

10  THEN  GOSUB  1040 

11  THEN  9180 


GOTO  4010 

D CM******************* I  TCTC ********* ************** 

CLS: WIDTH  80 

PRINT  "To  receive  information  concerning  a  category  enter  a  Y  for  yes." 

PRINT  "Enter  RETURN  for  default,  for  all  categories  default  is  no." 

PRINT 

PRINT 

INPUT  "  NAME";A$ 

INPUT  "  STATUS"; B$ 

INPUT  "  POSITION  TITLE"; C$ 
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4430  INPUT  " 

DDD  PHONE  NO.  ";D$ 

4440  INPUT  " 

FTS  PHONE  NO.  ";E$ 

4450  INPUT  " 

AUTOVON  PHONE  NO."; 

F$ 

4460  INPUT  " 

HOME  ADDRESS"; G$ 

4470  INPUT  " 

HOME  PHONE"; H$ 

4480  CLS:  WIDTH 

80 

4490  PRINT 

4500  PRINT 

4510  INPUT  "ENTER  S 

FOR  SCRI 

4520  CLS 

4530  IF  L$  =  " 

3,1  THEN  4920 

4540  PRINT  TLE$ 

4550  PRINT 

4560  OPEN  "I",i 

*1,X$ 

4570  K=l 

4580  IF  EOF(l) 

THEN 

4890 

4590  INPUT#1 , DI F$ ,QAME$ , STAT$ , P$ , DDD$ , FTS$ , < 

/0N$,HADD1$,HADD2$,HN0$ 

4600  IF  VAR$="> 

ML"  THEN  4620 

4610  IF  DIF$<> 

i/AR$  THEN  4580 

4620  J=l 

4630  IF  A$="Y" 

THEN 

PRINT 

"NAME: 

';QAME$ 

4640  IF  A$="Y" 

THEN 

J=J+1 

4650  IF  B$="Y" 

THEN 

PRINT 

"STATUS: 

■;STAT$ 

4660  IF  B$="Y" 

THEN 

JO+1 

4670  IF  C$="Y" 

THEN 

PRINT 

"POSITION: 

';P$ 

4680  IF  C$="Y" 

THEN 

J=J+1 

4690  IF  D$="Y" 

THEN 

PRINT 

"DDD  NO. : 

';  DDD$ 

4700  IF  D$="Y" 

THEN 

J=J+1 

4710  IF  E$="Y" 

THEN 

PRINT 

"FTS  NO.: 

';FTS$ 

4720  IF  E$="Y" 

THEN 

J=J+1 

4730  IF  F$="Y" 

THEN 

PRINT 

"AUTOVON  NO.: 

';VON$ 

4740  IF  F$="Y" 

THEN 

J=J+1 

4750  IF  G$="Y" 

THEN 

PRINT 

"HOME  ADDRESS: 

';HADD1$ 

4760  IF  G$="Y" 

THEN 

J=J+2 

4770  IF  G$="Y" 

THEN 

PRINT 

" 

';HADD2$ 

4780  IF  H$="Y" 

THEN 

J=J+1 

4790  IF  H$="Y" 

THEN 

PRINT 

"HOME  PHONE: 

';HNO$ 

4800  PRINT 

4810  N=INT(23/J) 

4820  K=K+1 

4830  IF  K>N  THEN  4850 

4840  GOTO  4580 

4850  INPUT  "ENTER  C 

TO  CONTINUE 

;Y$ 

4860  IF  Y$="Q" 

THEN 

4890 

4870  CLS 

4880  GOTO  4570 

4890  CLOSE 
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4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 


INPUT  "PRESS  RETURN  WHEN  READY"; V$ 
RETURN 

DCM*******************pApCD  LISTS****************** 

INPUT  "POSITION  PAPER  AND  ENTER  RETURN"; Q 

LPRINT  TLE$ 

LPRINT 

LPRINT 

OPEN  "I",#1,X$ 

IF  EOF(l)  THEN  5140 

INPUT  #1 , DI F$ , QAME$ , STAT$ , P$ , DDD$ , FTS$ , VON$ , HADD1$ , HADD2$ , HNO$ 

IF  VAR$="ALL"  THEN  5030 

IF  DIF$<>VAR$  THEN  4980 

IF  A$="Y"  THEN  LPRINT 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


IF 
IF 


LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 


NAME: 
STATUS: 
POSITION: 
DDD  NO.  : 
FTS  NO.: 
AUTOVON  NO. : 
HOME  ADDRESS: 

HOME  PHONE: 


QAME$ 

STAT$ 

P$ 

DDD$ 

FTS$ 

VON$ 

HADD1$ 

HADD2$ 

HNO$ 


IS  COMPLETE.   PRESS  RETURN  WHEN  READY"; W$ 


IF  B$="Y" 
IF  C$="Y" 
IF  D$="Y" 

E$="Y" 

F$="Y" 
IF  G$="Y" 
IF  G$="Y" 
IF  H$="Y" 
LPRINT 
LPRINT 
GOTO  4980 
CLOSE 

INPUT  "PRINTING 
RETURN 
GOTO  4010 

DCM* * ********* ********cnp  I  T CTC ******************* 

CLS 

PRINT  "To  receive  information  concerning  a  category  enter  a  Y  for  yes. 

PRINT  "Enter  RETURN  for  default,  for  all  categories  default  is  no." 

PRINT 

PRINT 

INPUT  "  LOCATION"; A$ 

INPUT  "  DDD  PHONE  NO. ";B$ 

INPUT  "  FTS  PHONE  NO. ";C$ 

INPUT  "  AUTOVON  PHONE  NO. ";D$ 

INPUT  "  ADDRESS"; E$ 

CLS 

PRINT 

PRINT 

INPUT  "ENTER  S  FOR  SCREEN  LISTING,  P  FOR  A  PAPER  LISTING";  L$ 

CLS 

IF  L$  =  "P"  THEN  5700 

PRINT  TLE$ 

PRINT 
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5370  PRINT 

5380  OPEN  "I",#1,X$ 

5390  K=l 

5400  J=3 

5410  IF  EOF(l)  THEN 

5670 

5420  INPUT  #1,AGC$,I 

-CT$,DDD$, 

FTS$,V0N$,ADD1$, 

5430  IF  SYS$="ALL"  " 

rHEN  5450 

5440  IF  AGC$<  >SYS$ 

THEN  5400 

5450  PRINT  "     AGENCY: 

";AGC$ 

5460  IF  A$="Y"  THEN 

PRINT  " 

LOCATION: 

5470  IF  A$="Y"  THEN 

J=J+1 

5480  IF  B$=MY"  THEN 

PRINT  " 

DDD  NO.  : 

5490  IF  B$="Y"  THEN 

J=J+1 

5500  IF  C$="Y"  THEN 

PRINT  " 

FTS  NO.: 

5510  IF  C$="Y"  THEN 

J=J+1 

5520  IF  D$="Y"  THEN 

PRINT  " 

AUTOVON  NO.: 

5530  IF  D$="Y"  THEN 

J=J+1 

5540  IF  E$="Y"  THEN 

PRINT  " 

ADDRESS: 

5550  IF  E$="Y"  THEN 

J=J+2 

5560  IF  E$="Y"  THEN 

PRINT  " 

5570  PRINT 

5580  PRINT 

5590  N=INT(23/J) 

5600  K=K+1 

5610  IF  K>N  THEN  5630 

5620  GOTO  5410 

5630  INPUT  "ENTER  C 

TO  CONTINUE 

5640  IF  Y$="Q"  THEN 

5670 

5650  CLS 

5660  GOTO  5390 

5670  CLOSE 

5680  INPUT  "PRESS  RETURN  WHEN 

READY"; V$ 

5690  RETURN 

5700  RFM*******************DApcD  LISTS******* 

5710  INPUT  "POSITION  PAPER  AND  ENTER  RETURN"; 

5720  LPRINT  TLE$ 

5730  LPRINT 

5740  LPRINT 

5750  OPEN  !T',#1,X$ 

5760  IF  EOF(l)  THEN 

5900 

5770  INPUT  #l,AGC$,l 

.CT$,DDD$, 

FTS$,V0N$,ADD1$, 

5780  IF  SYS$="ALL"  THEN  5800 

5790  IF  SYS$<  >AGC$ 

THEN  5760 

5800  LPRINT  "     AGENCY: 

";AGC$ 

5810  IF  A$="Y"  THEN 

LPRINT  " 

LOCATION: 

5820  IF  B$="Y"  THEN 

LPRINT  " 

DDD  NO.: 

5830  IF  C$="Y"  THEN 

LPRINT  " 

FTS  NO. : 

ADD2$ 


";LCT$ 

";DDD$ 

";FTS$ 

";VON$ 

";ADD1$ 

";ADD2$ 


";Y$ 


*********** 


ADD2$ 


";LCT$ 
";DDD$ 
";FTS$ 
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5840  IF  D$="Y"  THEN  LPRINT  "     AUTOVON  NO.:    ";VON$ 

5850  IF  E$="Y"  THEN  LPRINT  "     ADDRESS:       ";ADD1$ 

5860  IF  E$="Y"  THEN  LPRINT  "  ";ADD2$ 

5870  LPRINT 

5880  LPRINT 

5890  GOTO  5760 

5900  CLOSE 

5910  INPUT  "PRINTING  IS  COMPLETE.   PRESS  RETURN  WHEN  READY"; W$ 

5920  RETURN 

5930  GOTO  4010 

5940  RFM* *************** ****NCS************************ 

5950  CLS 

5960  PRINT 

5970  PRINT 

5980  PRINT  TAB(15)"     Personnel  lists  are  available  at  the:" 

5990  PRINT  TAB(15)"  1.  National  Level" 

6000  PRINT  TAB(15)"  2.  Regional  Level" 

6010  PRINT  TAB(15)"  3.  or  QUIT" 

6020  PRINT 

6030  PRINT  TAB(15)"     ENTER  OPTION:   "; 

6040  INPUT  OPT 

6050  TLE$="  NCS  Personnel" 

6060  X$=DRV$  +  "PNCS" 

6070  IF  OPT  =  3  THEN  4010 

6080  IF  OPT  =  1  THEN  VAR$="REG0" 

6090  IF  OPT  =  2  THEN  GOSUB  1040 

6100  IF  OPT=2  THEN  5940 

6110  IF  R=l  THEN  VAR$="REG1" 

6120  IF  R=2  THEN  VAR$="REG2" 

6130  IF  R=3  THEN  VAR$="REG3" 

6140  IF  R=4  THEN  VAR$="REG4" 

6150  IF  R=5  THEN  VAR$="REG5" 

6160  IF  R=6  THEN  VAR$="REG6" 

6170  IF  R=7  THEN  VAR$="REG7" 

6180  IF  R=8  THEN  VAR$="REG8" 

6190  IF  R=9  THEN  VAR$="REG9" 

6200  IF  R=10  THEN  VAR$="REG10" 

6210  GOSUB  4340 

6220  GOTO  5940 

6230  RPM****************AGFKirT  pc  ********  *************** 

6240  CLS 

6250  PRINT 

6260  PRINT 

6270  PRINT  "     Personnel  lists  are  available  for  these  agencies:" 

6280  PRINT  "  1.  CIA" 

6290  PRINT  "  2.  Dept.  of  Commerce" 

6300  PRINT  "  3.  DOD" 
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6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT  "Enter  Op 

TLE$=" 

X$=DRV$  +  "PAGC 

IF  OPT  =1  THEN 

IF  OPT  =2  THEN 

IF  OPT  =3  THEN 

IF  OPT  =4  THEN 

IF  OPT  =5  THEN 

IF  OPT  =6  THEN 

IF  OPT  =7  THEN 

IF  OPT  =8  THEN 

IF  OPT  =9  THEN 

IF  OPT  =10  THEN 

IF  OPT  =11  THEN 

IF  OPT  =12  THEN 

IF  OPT  =13  THEN 

IF  OPT  =14  THEN 

IF  OPT  =15  THEN 

GOSUB  4340 

GOTO  6230 

REM* 


4.  Dept.  of  Energy" 

5.  Dept.  of  Interior" 
of  State" 
of  Transportation" 


6.  Dept 

7.  Dept 

8.  FAA" 

9.  FEMA" 

10.  GSA" 

11.  NASA" 

12.  USCG" 

13.  USIA" 

14.  ALL  Agencies" 

15.  or  QUIT" 


tion:",OPT 


VAR$=" 

VAR$=" 

VAR$=" 

VAR$=" 

VAR$=" 

VAR$=" 

VAR$=" 

VAR$=" 

VAR$=" 

VAR$= 

VAR$= 

VAR$= 

VAR$= 

VAR$= 

4000 


NCS  Agency  Principals  and  Representatives" 

CIA" 

DOC" 

DOD" 

DOE" 

DOI" 

DOS" 

DOT" 

FAA" 

FEMA" 

"GSA" 

"NASA" 

"USCG" 

"USIA" 

"ALL" 


******************* 


FCC 


************************** 


CLS 

PRINT 

PRINT 

PRINT  TAB(15)" 

PRINT  TAB(15)" 

PRINT  TAB(15)" 

PRINT  TAB(15)" 

PRINT 

PRINT  TAB(15)"Enter  Option 

INPUT  OPT 

TLE$=" 

X$=DRV$  +  "PFCC" 

IF  OPT  =  3  THEN  4000 


Personnel  lists  are  available  at  the:" 

1.  National  Level" 

2.  Regional  Level" 

3.  or  QUIT" 


M . 


FCC  Personnel" 
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6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 


IF 
IF 
IF 
IF 
IF 


TAB(1 
TAB(1 
TAB(1 
TAB(1 
TAB(1 
TAB(1 
TAB(1 
TAB(1 
F 

THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


IF  OPT  =  1 

IF  OPT  =  1 

CLS 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IF  F=l 

F=2 

F=3 

F=4 

F=5 

F=6 
GOSUB  4340 
GOTO  6640 
REM 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

INPUT  "Ente 
TLE$=" 
X$=DRV$  +  " 


THEN  VAR$="NAT" 
THEN  6970 


Choose  from  these  regions:  " 

1.  Atlanta" 

2.  Boston" 

3.  Chicago" 

4.  Kansas  City" 

5.  San  Francisco" 

6.  Seattle" 
Enter  Option:   "; 


VAR$="RA" 
VAR$="RB" 
VAR$="RC" 
VAR$="RK" 
VAR$="RF" 
VAR$="RS" 


******************* 


EOCs 


************************* 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
OPT 
OPT 


Emergency  Operation  Centers  are  available  for  these  agencies:" 

1.  NCS/DCAOC" 

2.  FEMA" 

3.  GSA" 

4.  FAA" 

5.  DOD" 

6.  Dept.  of  State" 

7.  FCC" 

8.  ALL  Centers" 

9.  or  QUIT" 

r  Option"; OPT 

Emergency  Operations  Centers" 
EOCA" 

THEN  SYS$="NCS" 
THEN  SYS$="FEMA" 
THEN  SYS$="GSA" 
THEN  SYS$="FAA" 
THEN  SYS$="DOD" 
THEN  SYS$="DOS" 
THEN  SYS$="FCC" 
THEN  SYS$="ALL" 


v> 


7250  IF  OPT  =  9  THEN  4000 

7260  GOSUB  5180 

7270  GOTO  6990 

7280  RECAD$=DRV$  +  "RECALLD" 

7290  RECAN$=DRV$  +  "RECALN" 

7300  GOTO  7330 

7310  RECAD$=DRV$  +  "DGCCD" 

7320  RECAN$=DRV$  +  "DGCCN" 

7330  NUM=0 

7340  SCREEN  0: COLOR  14,0,0 

7350  OPEN  "I",#1,RECAD$ 

7360  OPEN  "0", #2, "TEMP" 

7370  IF  EOF(l)  THEN  GOTO  7420 

7380  INPUT  #1,  C,X,Y,D,S,E 

7390  IF  D  <  >  NUM  THEN  GOTO  7370 

7400  PRINT  #2,C;","X;","Y;","D;",,IS;","E 

7410  GOTO  7370 

7420  CLOSE 

7430  N$="TEMP" 

7440  GOSUB  1460 

7450  KILL  "TEMP" 

7460  OPEN  "I\#1,RECAN$ 

7470  IF  EOF(l)  THEN  GOTO  7530 

7480  INPUT  #1,R0W,C0L,A$,E 

7490  IF  E=77  THEN  LOCATE  (ROW+2) , COL:  PRINT  A$ 

7500  IF  E  <  >  NUM  THEN  GOTO  7470 

7510  LOCATE  (ROW+2) , COL: PRINT  A$ 

7520  GOTO  7470 

7530  CLOSE 

7540  LOCATE  24,1 

7550  IF  RECAD$=DRV$  +  "DGCCD"  THEN  7590 

7560  INPUT  "ENTER  NUMBER  FROM  DESIRED  BOX  (0  TO  QUIT)"; NUM 

7570  IF  NUM=0  THEN  4000 

7580  GOTO  7340 

7590  INPUT"Press  RETURN  when  ready", RET$ 

7600  IF  NUM=0  THEN  NUM=1  ELSE  4000 

7610  GOTO  7340 

7620  END 

7630  QEM*******************Q$.Tp*  ************  ************ 

7640  TLE$="  OSTP  Personnel" 

7650  X$="POSTP" 

7660  VAR$="OSTP" 

7670  GOSUB  4340 

7680  GOTO  4000 

7690  rpm*******************tk|[)USTRY  pnr***************** 

7700  CLS 
7710  PRINT 
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7720  PRINT 

7730  PRINT  ■ 

1     Personnel  lists  are  available  for 

these  companies 

7740  PRINT  ' 

1            1.  AT&T" 

7750  PRINT  ' 

1            2.  MCI" 

7760  PRINT  ' 

1             3.  Western  Union" 

7770  PRINT  ' 

1             4.  ALL  Companies" 

7780  PRINT  ' 

1             5.  or  QUIT" 

7790  PRINT 

7800  INPUT  ' 

'Enter  Option"; OPT 

7810  TLE$=" 

Industry  Personnel" 

7820  X$="IPC 

)C" 

7830  IF  OPT 

=  1  THEN  VAR$="ATT" 

7840  IF  OPT 

=  2  THEN  VAR$="MCI" 

7850  IF  OPT 

=  3  THEN  VAR$="WU" 

7860  IF  OPT 

=  4  THEN  VAR$="ALL" 

7870  IF  OPT 

=  5  THEN  4000 

7880  GOSUB  4340 

7890  GOTO  7690 

7900  REM  ***************STATE  [_ tct$********************* 

7910  CLS:  SCREEN  0: WIDTH  40: COLOR  14,1,0 

7920  PRINT 

7930  PRINT  ' 

REGIONAL  MENU          ' 

7940  PRINT  ' 

7950  PRINT  ' 

1   WHAT  REGION  DO  YOU  WANT  TO  SEE?    ' 

7960  PRINT  ' 

7970  PRINT  ' 

REGION        STATES           ' 

7980  PRINT  ■ 

7990  PRINT  ' 

1   1.     ME  NH  MA  VT  RI  CT         ' 

8000  PRINT  ' 

1   2.     NY  NJ  PR  VI              ' 

8010  PRINT  ' 

1   3.     DE  PA  WV  VA  MD  DC(NCR)      ' 

8030  PRINT  ' 

1   4.     AL  MS  FL  KY  TN  NC  SC  GA     ' 

8050  PRINT  ' 

1   5.     MI  WI  IL  IN  OH  MN         ' 

8060  PRINT  ' 

1   6.     TX  OK  AR  LA  NM            ' 

8070  PRINT  ' 

1   7.     IA  MO  NE  KS              ' 

8080  PRINT  ' 

1   8.     ND  SD  MT  WY  UT  CO         ' 

8090  PRINT  ' 

1   9.     NV  CA  AZ  HI  GU  AS         ' 

8100  PRINT  ■ 

1  10.     WA  OR  ID  AK              ' 

8110  PRINT  ' 

1  11.     Quit                   ' 

8120  PRINT:  ( 

:OLOR  14,0,0 

8130  PRINT  ■ 

1     ENTER  SELECTED  REGION"; 

8140  INPUT  f 

t 

8150  PRINT 

8160  IF  R=i: 

L  THEN  GOTO  4000 

8170  CLS 

8180  X$=DRV3 

J  +  "STATLIST" 

8190  IF  R=l 

THEN  VAR$="R1" 

8200  IF  R=2 

THEN  VAR$="R2" 

~I 


8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 


VAR$="R3" 
VAR$="R4" 
VAR$="R5" 
VAR$="R6" 
VAR$="R7" 
VAR$="R8" 
VAR$="R9" 
VAR$="R10" 


IF  R=3  THEN 

IF  R=4  THEN 

IF  R=5  THEN 

IF  R=6  THEN 

IF  R=7  THEN 

IF  R=8  THEN 

IF  R=9  THEN 

IF  R=10  THEN 

GOSUB  4340 

GOTO  7900 

R EM ********* NASA* ************ * 

CLS 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 


TAB(15) 
TAB(15) 
TAB(15) 
TAB(15) 
TAB(15) 
TAB(15) 


Personnel  lists  are  available  for: 


1. 

2. 


NASCOM  Prime  Commercial  Carriers" 
NASCOM  Prime  Commercial  Carrier" 
Points  of  Contact" 
(Space  shuttle  missions  only)" 
Quit  " 


TAB(15)"ENTER  OPTION:"; 
TT 


receive  information  concerning  a  category  enter  a  Y  for  yes." 
"Enter  RETURN  for  default,  for  all  categories  default  is  no." 


NAMF$ 


IF  TT  =  3  THEN  4000 

DCM*******************|  TCTC************************ 

CLS 

PRINT 

PRINT  "To 

PRINT 

PRINT 

PRINT 

INPUT  " 

INPUT  " 

INPUT  " 

INPUT  " 

INPUT  " 

CLS 

PRINT: PRINT 

INPUT  "ENTER  S  FOR  SCREEN  LISTING,  P  FOR  A  PAPER  LISTING"; LIS$ 

CLS 

IF  TT=1  THEN  TTLE$  = 


NAME  OF  FIRM: 
NAME  OF  BRANCH:  ";BRCH$ 
NAME  OF  PERSON: ";NAMP$ 
PHONE  NO.  :";PHNO$ 
ROUTING  NO.  :";RONO$ 


IF  TT=2  THEN  TTLE$  = 

IF  TT=1  THEN  VAR1$  = 

IF  TT=2  THEN  VAR1$  = 
X$=DRV$  +  "PNASA" 

IF  LIS$  =  "P"  THEN  8980 
PRINT  TTLE$ 


"NASCOM  PRIME  COMMERCIAL  CARRIERS" 
"POINTS  OF  CONTACT  FOR  NASCOM" 
"NPCC" 
"POC" 
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8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 


PRINT 

OPEN  "I",#1,X$ 

K  =  1 

IF  EOF(l)  THEN  8950 

INPUT  #1,DIF$,NAM1F$,BRCH1$,BRCH2$,NAMP1$,PHN01$,R0N01$ 

IF  DIF$<>VAR1$  THEN  8710 

J=l 

THEN  PRINT 

THEN  J  =  J 

THEN  PRINT  "MANAGER: 


II  Vll 

ii  y" 
llyll 


"FIRM: 
+  1 


ii  Y" 
ii  y  '  • 


THEN  PRINT  "BRANCH: 
THEN  J=J+1 
"."  THEN  GOTO  8840 
"Y"  THEN  PRINT  " 
THEN  J=J+1 


"Y"  THEN  PRINT 
"Y"  THEN  J=J+1 

llyll 
llyll 


'PHONE  NO. 


THEN  PRINT  "ROUTING  NO. 
THEN  J=J+1 


IF  NAMF$ 

IF  NAMF$ 

IF  NAMP$ 

IF  NAMP$  =  "Y"  'HEN  J  =  J  +  1 

IF  BRCH$  = 

IF  BRCH$  = 

IF  BRCH2$ 

IF  BRCH$  - 

IF  BRCH$  =  "Y" 

IF  PHN0$ 

IF  PHNO$ 

IF  RONO$ 

IF  RONO$ 

PRINT 

N=INT(23/J):K=K+1 

IF  K>N  THEN  8920 

GOTO  8710 

INPUT  "ENTER  C  TO  CONTINUE,  Q  TO  QUIT";YY$ 

IF  YY$="Q"  THEN  8950 

CLS:G0T0  8700 

CLOSE 

INPUT  "PRESS  RETURN  WHEN  READY"; VV$ 

GOTO  8310 

REM********** * PAPER  lists***************** 

INPUT  "POSITION  PAPER  AND  ENTER  RETURN"; QQ 
LPRINT  TTLE$ 
LPRINT:  LPRINT 
OPEN  "I",#1,X$ 
IF  EOF(l)  THEN  9150 
INPUT  #l,DIF$,NAMlF$,BRa 
IF  VAR1$="ALL"  THEN  9070 
DIF$<>VAR1$  THEN  9030 
NAMF$="Y"  THEN  LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 


;NAM1F$ 
;NAMP1$ 
;BRCH1$ 


;BRCH2$ 
;PHN01$ 
; R0N01$ 


********* 


IF 
IF 

IF 
IF 
IF 
IF 
IF 


NAMP$="Y" 
BRCH$="Y" 
BRCH$="Y" 
PHN0$="Y" 
R0N0$="Y" 

LPRINT: LPRINT 

GOTO  9030 


THEN 
THEN 
THEN 
THEN 
THEN 


1$ , BRCH2$ , NAMP1$ , PHN01$ , R0N01$ 

11     NAME:         ' 

;NAM1F$ 

"     MANAGER:       ' 

;NAMP1$ 

"     BRANCH: 

;BRCH1$ 

;BRCH2$ 

"     PHONE  NO.  :     ' 

;PHN01$ 

ROUTING  NO.  : 

; R0N01$ 
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9150 
9160 
9170 
9180 
9190 
9200 
9210 
9220 
9230 
9240 
9250 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
9370 
9380 
9390 
9400 
9410 
9420 
9430 
9440 
9450 
9460 
9470 
9480 
9490 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 


CLOSE 

INPUT  "PRINTING  IS  COMPLETE. 

GOTO  8310 


PRESS  RETURN  WHEN  READY"; WW$ 


******************* 


INDUSTRY  EOC******** 


'ENTER  S  FOR  SCREEN  LISTING,  P  FOR  A  PAPER  LISTING"; L$ 
THEN  9480 


REM 

CLS 

PRINT 

INPUT 

IF  L$  ="P" 

CLS 

PRINT 

PRINT  "     Emergency  Operations  Centers" 

PRINT: PRINT 

OPEN  'T",#1,DRV$  +  "IEOC" 

K=l 

J=3 

IF  EOF(l)  THEN  9450 

INPUT#1 , AGC$ , LCT$ , SPV$ ,DDD$ 


********* 


";AGC$:J=J+1 
";LCT$:J=J+1 
";SPV$:J=J+1 

";DDD$:J=J+1 


PRINT  "  AGENCY 

PRINT  "  LOCATION 

PRINT  "  SUPERVISOR 

PRINT  "  DDD  NO. 

PRINT: PRINT 

N=INT(37/J) 

K=K+1 

IF  K>N  THEN  9410 

GOTO  9300 

INPUT  "ENTER  C  TO  CONTINUE,  OR  Q  TO  QUIT"; Y$ 

IF  Y$=  "Q"  THEN  9450 

CLS 

GOTO  9280 

CLOSE 

INPUT  "PRESS  RETURN  WHEN  READY"; V$ 

GOTO  4000 

REM*******pApER  lisjs******* 

INPUT  "POSITION  PAPER  AND  ENTER  RETURN"; QQ 

LPRINT"EMERGENCY  OPERATIONS  CENTERS" 

LPRINT:  LPRINT 

OPEN  "I",#1,DRV$  +  "IEOC" 

IF  EOF(l)  THEN  9610 

INPUT  #1,AGC$,LCT$,SPV$,DDD$ 

LPRINT:  LPRINT 


LPRINT" 

LPRINT" 

LPRINT" 

LPRINT" 

LPRINT 

GOTO  9530 


AGENCY 

LOCATION 

SUPERVISOR 

DDD  NO 


";AGC$ 
";LOC$ 
";SPV$ 
";DDD$ 


74 


9620  CLOSE 

9630  INPUT"PRINTING  IS  COMPLETE.  PRESS  RETURN:  ";QQ 

9640  GOTO  4000 


Appendix  E 
NCSDAM.BAS  Listing 


01  COMMON  DRV$ 

20  DIM  CODES(100),S(100),KOUNT(100) 

30  DEFDBL  N,M,C: LASTFILE$="  " 

35  GOTO  4000 

250  PAD$="         Main  Menu 

260  GOSUB  650 

270  TES=0 

280  GOSUB  580 


?QD  ppM****************************************** 

300  PRINT 

310  PRINT" 

1. 

P.O.  C.  Lists                 " 

320  PRINT" 

2. 

Emergency  Activation  Procedures  " 

330  PRINT" 

3. 

Network  Status  Monitoring       " 

340  PRINT" 

4. 

Damage  Assessment             " 

350  PRINT" 

5. 

Resolution  of  Claim           " 

360  PRINT" 

6. 

Zooming                     " 

370  PRINT" 

7. 

Word  Processing  (WordStar) 

380  PRINT" 

8. 

NSC  Processing  Module          " 

390  PRINT" 

9. 

QUIT                        " 

400  COLOR  ' 

14,0, 

0:  PRINT 

410  PRINT" 

ENTER  OPTION  DESIRED"; 

420  INPUT  T 

430  IF  T=6 

OR  T 

=7  THEN  460 

440  IF  T=LASTT 

THEN  4000 

450  LASTT=" 

r 

460  PRINT 

470  WIDTH  80 

480  IF  T=l 

THEN 

CHAIN  "NCSPOC" 

490  IF  T=2 

THEN 

CHAIN  "NCSACT" 

500  IF  T=3 

THEN 

CHAIN  "NCSSTAT" 

510  IF  T=4 

THEN 

CHAIN  "NCSDAM" 

520  IF  T=5 

THEN 

CHAIN  "NCSCLAIM" 

530  IF  T=6 

THEN 

RUN  "NCSZOOM" 

540  IF  T=7 

THEN 

3400 

550  IF  T=8 

THEN 

CHAIN  "NCSNSC" 

560  IF  T=9 

THEN 

SYSTEM 

570  GOTO  250 

-  75 
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580  LOCATE  10,4: PRINT"  DATE  ":  LOCATE  10,29: PRINT"  TIME  " 

600  LOCATE  11,2 

610  PRINT  DATES 

620  LOCATE  11,28 

630  PRINT  TIME$ 

640  RETURN 

ccn  d CM*  ***********************************************************  * 

660  REM* 

670  REM*   This  Subroutine  produces  the  logo  box  for  the  menus.    * 

680  REM*  * 

con  dcm***** ***************  *******************************  ********** 

700  SCREEN  0: WIDTH  40:  CLS 

710  PRINT 

720  COLOR  14,1,0 

730  PRINT  CHR$(201); 

740  FOR  1=1  TO  36 

750  PRINT  CHR$(205); 

760  NEXT  I 

770  PRINT  CHR$(187) 

780  PRINT  CHR$(186); 

790  FOR  1=1  TO  36 

800  PRINT"  "; 

810  NEXT  I 

820  PRINT  CHR$(186) 

830  PRINT  CHR$(186); 

840  PRINT"      NCS  EMERGENCY  TELECOMM.       "; 

850  PRINT  CHR$(186) 

860  PRINT  CHR$(186); 

870  PRINT"         MICRO  SUBSYSTEM         "; 

880  PRINT  CHR$(186) 

890  PRINT  CHR$(186); 

900  PRINT  PAD$;: PRINT  CHR$(186) 

910  PRINT  CHR$(186); 

920  FOR  1=1  TO  36 

930  PRINT"  "; 

940  NEXT  I 

950  PRINT  CHR$(186) 

960  PRINT  CHR$(200); 

970  FOR  1=1  TO  36 

980  PRINT  CHR$(205); 

990  NEXT  I 

1000  PRINT  CHR$(188) 

1010  PAD$="   " 

1020  COLOR  14,1,0 

1030  RETURN 

1040  CLS:  WIDTH  80 

1050  PRINT"THIS  OPTION  IS  NOT  YET  AVAILABLE." 
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1060  INPUT'PRESS  RETURN  FOR  MENU. "; RETS 

1070  CLS 

1080  RETURN 

1090  PPM********pT I  P  READ************************** 

1100  SCREEN  0: CLS: WIDTH  80 

1110  IF  SEf=0  THEN  1320 

1120  1=0 

1130  OPEN  'T',#1,X$ 

1140  IF  EOF(l)  THEN  1280 

1150  INPUT  #1,K$,A$ 

1160  IF  K$=PASS$  THEN  1180 

1170  GOTO  1140 

1180  1=1+1 

1190  IF  I>=20  THEN  1220 

1200  PRINT  A$ 

1210  GOTO  1140 

1220  PRINT 

1230  INPUT"ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT"; C$ 

1240  IF  C$="Q"  THEN  1280 

1250  PRINT 

1260  1=0 

1270  GOTO  1140 

1280  CLOSE 

1290  PRINT 

1300  INPUT"ENTER  RETURN  TO  CONTINUE  ";R$ 

1310  GOTO  1450 

1320  OPEN  "I",#1,X$ 

1330  FOR  1=1  TO  20 

1340  LINE  INPUT  #1,A$ 

1350  IF  EOF(l)  THEN  1420 

1360  PRINT  A$ 

1370  NEXT  I 

1380  PRINT 

1390  INPUT"ENTER  C  TO  CONTINUE, Q  TO  QUIT";B$ 

1400  IF  B$<>"C"  AND  B$<>MQ"  THEN  1390 

1410  IF  B$="C"  THEN  1330 

1420  PRINT 

1430  INPUT"  PRESS  RETURN  WHEN  READY"; M$ 

1440  CLOSE  #1 

1450  RETURN 

1460  dfm************pt \f   pi qt**************** 

1470  WIDTH  80: SCREEN  2: WINDOW  SCREEN  (0,0)-(640 ,250) 

1480  OPEN  "I",#1,N$ 

1490  IF  EOF(l)  THEN  2510 

1500  INPUT  #1,C,X,Y,Z,S,E 

1510  IF  C=0  THEN  1760  REM  **POINT 

1520  IF  C=l  THEN  1780  REM  **LINE 
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1530  IF  C=2  THEN  1800  REM  **CIRCLE 

1540  IF  C=3  THEN  1820  REM  **CLEAR  SCREEN 

1550  IF  04  THEN  1840  REM  **CLEAR  POINT 

1560  IF  C=5  THEN  1860  REM  **CLEAR  CENTER  OF  CIRCLE 

1570  IF  C=6  THEN  1880  REM  **BOX(UPPER  LEFT  CORNER) 

1580  IF  C=7  THEN  1910  REM  **BOX  (LOWER  RIGHT  CORNER) 

1590  IF  C=8  THEN  1930  REM  **SATELLITE 

1600  IF  C=9  THEN  1990  REM  **STAR 

1610  IF  C=10  THEN  2020  REM  **EARTH  STATION 

1620  IF  C=ll  THEN  2050  REM  **CITY  (BOX) 

1630  IF  C=12  THEN  2070  REM  **REMOVE  CENTER  OF  CIRCLE 

1640  IF  C=13  THEN  2090  REM  **TELEPHONE  SET 

1650  IF  C=14  THEN  2120  REM  **SET  UP  BLOCK  FILLER 

1660  IF  C=15  THEN  2140  REM  **CREATES  A  FILLED  BLOCK 

1670  IF  C=16  THEN  2160  REM  **CREATES  A  TRIANGLE 

1680  IF  C=17  THEN  2200  REM  **CREATES  A  BIG  TRIANGLE 

1690  IF  C=18  THEN  2260  REM  **CREATES  A  DIAMOND 

1700  IF  C=19  THEN  2320  REM  **CREATES  A  LARGE  BOX 

1710  IF  C=20  THEN  2340  REM  **WISHBONE 

1720  IF  C=21  THEN  2410  REM  **ASTERISK 

1730  IF  C=22  THEN  2460  REM  **AN  X 

1740  IF  C=23  THEN  2490  REM  **A  DASHED  LINE 

1750  GOTO  1490 

1760  PSET  (X,Y) 

1770  GOTO  1490 

1780  LINE  -(X,Y) 

1790  GOTO  1490 

1800  CIRCLE(X,Y),Z,,S,E, 13/32 

1810  GOTO  1490 

1820  CLS 

1830  GOTO  1490 

1840  CLS 

1850  GOTO  1490 

1860  CLS 

1870  GOTO  1490 

1880  X1=X 

1890  Y1=Y 

1900  GOTO  1490 

1910  LINE  (X1,Y1)-(X,Y),,B 

1920  GOTO  1490 

1930  CIRCLE  (X,Y),10, ,0,6. 28,1/2 

1940  LINE  (X-20,Y)-(X-10,Y) 

1950  LINE  (X,Y-5)-(X,Y-10) 

1960  LINE  (X+10,Y)-(X+20,Y) 

1970  LINE  (X,Y+5)-(X,Y+10) 

1980  GOTO  1490 

1990  LINE  (X,Y-2)-(X-4,Y+2):LINE  -(X+4,Y-1) 
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2000  LINE  ( 

X,Y-2)-(X+4,Y+2):  LINE  -(X-4.Y-1):  LINE  -(X 

2010  GOTO  ] 

490 

2020  LINE  ( 

X,Y)-(X+10,Y-10): LINE  -(X+20.Y): LINE  -(X, 

2030  CIRCLE 

:  (X+20,Y-15),14,,2.36,5.5 

2040  GOTO  ] 

490 

2050  LINE  ( 

X-2,Y-1)-(X+2,Y+1),,B 

2060  GOTO  ] 

490 

2070  CLS 

2080  GOTO  1 

490 

2090  LINE  ( 

X,Y)-(X+12,Y): LINE  -(X+6.Y-6):  LINE  -(X,Y) 

2100  CIRCLE 

:  (X+6,Y-6),6,,0,3.  14 

2110  GOTO  ] 

490 

2120  PAINT 

(X,Y),1 

2130  GOTO  ] 

490 

2140  LINE  ( 

X1,Y1)-(X,Y),,B 

2150  GOTO  ] 

.490 

2160  LINE  ( 

X-2,Y)-(X+2,Y) 

2170  LINE  ( 

X-4,Y+1)-(X+4,Y+1) 

2180  PSET  ( 

X.Y-1) 

2100  GOTO  ] 

L490 

2200  PSET  ( 

X.Y-2) 

2210  LINE  ( 

X-2,Y-1)-(X+2,Y-1) 

2220  LINE  ( 

X-4,Y)-(X+4,Y) 

2230  LINE  ( 

X-6,Y+1)-(X+6,Y+1) 

2240  LINE  t 

X-8,Y+2)-(X+8,Y+2) 

2250  GOTO  ] 

L490 

2260  PSET  ( 

X,Y) 

2270  PSET  ( 

X-2.Y) 

2280  PSET  ( 

X+2.Y) 

2290  PSET  ( 

X.Y-1) 

2300  PSET  ( 

;x,y+i) 

2310  GOTO  : 

L490 

2320  LINE  j 

'X-4,Y-2)-(X+4,Y+2),,B 

2330  GOTO 

1490 

2340  PSET  I 

;x,y-2) 

2350  PSET  1 

[X.Y-1) 

2360  PSET  1 

;x,y) 

2370  LINE  I 

[X-2,Y+1)-(X+2,Y+1) 

2380  PSET  1 

;X-4,Y+2) 

2390  PSET  1 

;X+4,Y+2) 

2400  GOTO 

1490 

2410  LINE  1 

:X+4,Y-2)-(X-4,Y+2) 

2420  LINE  1 

:X-4,Y-2)-(X+4,Y+2) 

2430  LINE 

:X-4,Y)-(X+4,Y) 

2440  LINE 

(X,Y+2)-(X,Y-2) 

2450  GOTO 

1490 

2460  LINE 

(X+4,Y-2)-(X-4,Y+2) 
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2470  LINE  (X-4,Y-2)-(X+4,Y+2) 

2480  GOTO  1490 

2490  LINE-(X,Y),,,50. 386 

2500  GOTO  1490 

2510  CLOSE 

2520  RETURN 

2530  pfm**** ********* LAT/ L ONG******* ************ 

2540  REM  CLS 

2550  REGION=R 

2560  SET=0 

2570  OPEN  "I", #1, "BOUNDARY" 

2580  IF  EOF(l)  THEN  GOTO  2610 

2590  INPUT  #l,LATD,LATU,LONR,LONL,REG 

2600  IF  REGION<>REG  THEN  2580 

2610  CLOSE  #1 

2620  IF  LAT>LATU  OR  LAT<LATD  THEN  2650 

2630  IF  L0N>L0NL  OR  LON<LONR  THEN  2650 

2640  GOTO  2680 

2650  IF  REGION>10  THEN  3380 

2660  REGI0N=R+(R*10) 

2670  GOTO  2570 

2680  OPEN  "r\#2,"LATFILE" 

2690  LA1=0 

2700  IF  EOF(2)  THEN  2810 

2710  INPUT  #2,  LA,  YVAL,REG 

2720  IF  REGION<>REG  THEN  2700 

2730  IF  LAT<=LA1  AND  LAT>=LA  THEN  2770 

2740  LA1=LA 

2750  YVAL1=YVAL 

2760  GOTO  2700 

2770  YL0W=YVAL 

2780  YHI=YVAL1 

2790  LATL0W=LA 

2800  LATHI=LA1 

2810  CLOSE  #2 

2820  OPEN  "I",#1,"L0NFILE" 

2830  L0N1=0 

2840  IF  E0F(1)  THEN  2920 

2850  INPUT  #1,L0,C1,C2,REG 

2860  IF  REGION<>REG  THEN  2840 

2870  IF  L0N<=L0N1  AND  L0N>=L0  THEN  2920 

2880  L0N1=L0 

2890  C11=C1 

2900  C21=C2 

2910  GOTO  2840 

2920  CLOSE  #1 

2930  IF  R=0  THEN  3070 
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2940  XLEFTU=YHI/C11+C21 

2950  XLEFTD=YL0W/C11+C21 

2960  XRITEU=YHI/C1+C2 

2970  XRITED=YL0W/C1+C2 

2980   Ll=XRITEl)-XLEFTU 

2990   L2=XRITED-XLEFTD 

3000  G=(L0N1-L0N)/(L0N1-L0) 

3010  Xl=G*L2+XLEFTD 

3020  XU=G*L1+XLEFTU 

3030  D=(LAT-LATLOW)/(LATHI-LATLOW) 

3040  XD=CINT(XL-D*(XL-XU)) 

3050  YD=CINT(D*(YHI-YLOW)+YLOW) 

3060  GOTO  3390 

3070  RAD(l)=YLOW 

3080  RAD(2)=YHI 

3090  C1(1)=C11 

3100  C2(1)=C21 

3110  C1(2)=C1 

3120  C2(2)=C2 

3130  FOR  1=1  TO  2 

3140  K=0 

3150  IF  1=1  THEN  S=l 

3160  IF  1=2  THEN  S=3 

3170  FOR  J=S  TO  S+l 

3180  K=K+1 

3190  A=1/(C1(K)   2)+l 

3200  B=2*(174-C2(K))/C1(K)+2*514 

3210  C=(174-C2(K))      2-RAD(I)    2+514  2 

3220  Y1=(B+SQR(B  2-4*A*C))/(2*A) 

3230  Y2=(B-SQR(B  2-4*A*C))/(2*A) 

3240  IF  Yl>235  THEN  Y(J)=Y2 

3250  IF  Yl<=235  THEN  Y(J)=Y1 

3260  X(J)=Y(J)/C1(K)+C2(K) 

3270  NEXT  J 

3280  NEXT  I 

3290  DVAL=(L0N1-L0N)/(L0N1-L0) 

3300  XL=DVAL*(X(2)-X(1))+X(1) 

3310  YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320  XU=DVAL*(X(4)-X(3))+X(3) 

3330  YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340  SVAL=( LAT-LATLOW)/( LATHI-LATLOW) 

3350  XD=CINT(XL-SVAL*(XL-XU)) 

3360  YD=CINT(YL+SVAL*(YU-YL)) 

3370  GOTO  3390 

3380  SET=20 

3390  RETURN 

3400  CLS: WIDTH  80 
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3410 

SHELL 

"WS 

3420 

CLS 

3430 

GOTO  250 

4000 

DEFDBL 

N.C.M 

4010 

DCM*********************************************** 

4020 

PAD$=" 

Damage  Assessment        " 

4030 

GOSUB  i 

550 

4040 

TES=0 

4050 

GOSUB  ! 

580 

4060 

PRINT 

4070 

PRINT" 

THIS  MODULE  ALLOWS  THE  USER  TO    " 

4080 

PRINT" 

REPORT  DAMAGE  IN  TWO  WAYS:       " 

4090 

PRINT 

4100 

PRINT" 

1.  Observed  Entries:            " 

4110 

PRINT" 

2.  Predictive  Entries:           " 

4120 

PRINT" 

3.  QUIT.                      " 

4130 

PRINT 

4140 

COLOR  : 

14,0,0:  INPUV'ENTER  OPTION  DESIRED";T 

4150 

DEFDBL 

N,C,M 

4160 

CLS 

4170 

IF  T=3 

THEN  250 

4180 

CLS 

4190 

IF  T=2 

THEN  5130 

4200 

IF  T=l 

THEN  4220 

4210 

GOTO  4010 

4220 

pnM*********************************************** 

4230 

CLS: WIDTH  80 

4240 

PRINT 

4250 

PRINT" 

OBSERVED  DAMAGE         " 

4260 

PRINT 

4270 

PRINT" 

Use  this  option  to  enter  damage  data" 

4280 

PRINT" 

for  individual  sites  and  to  confirm  " 

4290 

PRINT" 

predicted  damage.  Enter  the  following" 

4300 

PRINT" 

data  for  each  damage  site.         " 

4310 

PRINT 

4320 

PRINT" 

SELECT  ONE  OF  THE  FOLLOWING  SYSTEMS" 

4330 

PRINT 

4340 

PRINT" 

1.  FTS           4.  MCI  Microwave" 

4350 

PRINT" 

2.  AUTOVON        5.  MCI  Fiber  Optics" 

4360 

PRINT" 

3.  AUTODIN        6.  All  Critical  Faci 

lities" 

4370 

PRINT" 

7.  QUIT" 

4380 

PRINT 

4390 

INPUT" 

ENTER  OPTION  DESIRED: "; OP 

4400 

IF  0P=; 

I   THEN  V$=DRV$  +  "VONNODE" 

4410 

IF  0P= 

1  THEN  V$=DRV$  +  "FTSNODE" 

4420 

IF  0P=: 

3  THEN  V$=DRV$  +  "DINNODE" 

4430 

IF  0P=' 

\   THEN  V$=DRV$  +  "MCINODE" 
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4440  IF  0P=5  THEN  V$=DRV$  +  "MFONODE" 

4450  IF  0P=6  THEN  V$=DRV$  +  "CRITFAX" 

4460  IF  0P=7  THEN  4010 

4470  IF  0P<1  OR  0P>7  THEN  4220 

4480  CLS 

4490  IF  DRV$>"B:"  THEN  4510 

4495  IF  0P=2  OR  0P=3  THEN  PRINT"ENTER  DISC  NO.  S-18  IN  THE" 

4500  IF  0P=2  OR  0P=3  THEN  INPUT"B-DRIVE  AND  ENTER  RETURN"; D$ 

4510  IF  0P=2  OR  0P=3  THEN  4540 

4520  IF  DRV$>"B:"  THEN  4540 

4525  PRINT"ENTER  DISC  NO.  S-17  IN  THE" 

4530  INPUT"B-DRIVE  AND  ENTER  RETURN"; D$ 

4540  RESET 

4550  CLS: WIDTH  80 

4560  PRINT 

4570  PRINT 

4580  PRINT 

4590  1=1 

4600  INPUT"     FACILITY  DAMAGED.  (Enter  7-digt  code  or  0  to  qui t)"; CODES(I) 

4610  IF  CODES(I)=0  THEN  4010 

4620  PRINT 

4630  PRINT 

4640  INPUT"      SEVERITY  CODE.  (2  =  impaired,  3  =  destroyed)"; S(I) 

4650  PRINT 

4660  PRINT 

4670  PRINT"      SITE  CODE  ENTERED:  "; CODES(I); ".SEVERITY  CODE:  ";S(I) 

4680  PRINT 

4690  PRINT 

4700  INPUT'IS  DATA  CORRECT?  Y  OR  N";AN$ 

4710  IF  AN$="N"  THEN  CLS 

4720  IF  AN$="N"  THEN  4600 

4730  CLS 

4740  PRINT 

4750  INPUT"DO  YOU  WANT  ANOTHER  SITE?  Y  OR  N";AN$ 

4760  IF  AN$="Y"  THEN  CLS 

4770  IF  AN$="Y"  THEN  1=1+1 

4780  IF  AN$="Y"  THEN  4600 

4790  WIDTH  40: CLS 

4800  PRINT 

4810  PRINT"STAND  BY,  SYSTEM  PROCESSING" 

4820  FOR  J=l  TO  I 

4830  KOUNT(J)=0 

4840  NEXT  J 

4850  OPEN  "0",#1,DRV$  +  "JUNK" 

4860  OPEN  "I",#2,V$ 

4870  IF  EOF(2)  THEN  4950 

4880  INPUT  #2,R,C,A$,X5,Y5,X9,Y9,STAT,SYS$,NODE 
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4890  FOR  J=l  TO  I  STEP  1 

4900  IF  CODES(J)=NODE  THEN  STAT=S(J)*10 

4910  IF  CODES(J)=NODE  THEN  K0UNT(J)=1 

4920  NEXT  J 

4930  PRINT  #1,R;\"C;","A$;","X5;","Y5;", 

1"X9;","Y9;"," 

4940  GOTO  4870 

4950  CLOSE 

4960  FOR  J=l  TO  I 

4970  IF  K0UNT(J)=1  THEN  5040 

4980  CLS 

4990  PRINT 

5000  PRINT 

5010  PRINT"Site  Code  "; CODES(J); "  is  not 

in  the  file. " 

5020  PRINT"Refer  to  facility  listing  for 

correct" 

5030  INPUT'code.   Enter  RETURN  to  continue"; AN$ 

5040  NEXT  J 

5050  CLS 

5060  KILL  V$ 

5070  NAME  DRV$  +  "JUNK"  AS  V$ 

5080  PRINT 

5090  INPUT"DO  YOU  WANT  ANOTHER  SYSTEM?  Y 

OR  N";AN$ 

5100  IF  AN$="Y"  THEN  CLS 

5110  IF  AN$="Y"  THEN  4220 

5120  GOTO  4010 

5130  R  EM  ********************************************** 

5140  CLS 

5150  ANSWER$="" 

5160  PRINT"       PREDICTIVE  DAMAGE" 

5170  PRINT 

5180  PRINT 

5190  PRINT"       can  be  done  two  ways:" 

5200  PRINT 

5210  PRINT"  1.   Nuclear  or  Other  Device" 

5220  PRINT"     -  using  circular  destruction  areas" 

5230  PRINT 

5240  PRINT"  2.   Natural  or  Manmade  Disaster" 

5250  PRINT"     -  using  rectangular  disaster  areas" 

5260  PRINT 

5270  PRINT"  3.   or  QUIT" 

5280  PRINT 

5290  INPUT"ENTER  YOUR  CHOICE"; CH 

5300  IF  CH=1  THEN  5340 

5310  IF  CH=2  THEN  5750 

5320  IF  CH=3  THEN  4010 

5330  GOTO  5140 

5340  OPEN  "O",#10,"TEMPSITE" 

5350  CLS 
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5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 


PRINT"     NUCLEAR  OR  OTHER  DEVICE" 

PRINT 

PRINT 

PRINT"   Use  this  option  to  predict  damage1 

PRINT"from  a  nuclear  detonation  or  other1 

PRINT"massive  destruction  devices.  Two  levels' 

PRINT"of  damage  can  be  accomodated:  total1 

PRINT"destruction    and   impairment.  The1 

PRINT:,procedure  uses  radius  from  the  center1 


PRINT"point   of   detonation 

PRINT"destruction  or  impairment 

PRINT  "     ENTER  the  following 

PRINT"        each  incident: " 

PRINT 

PRINT 

INPUT"SITE  OF  INCIDENT:"; SITES 

PRINT 

Latitude:  "; LAT 
Longitude:  "; L0N 


to 
ii 


calculate 


data  for" 


INPUT" 

INPUT" 

PRINT 

INPUFRadius 

INPUT" 

CLS 

PRINT 

PRINT 

PRINT" 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

INPUT" 

IF  ANS$= 


of  total  destruction(mi les)";  Rl 
Radius  of  impairment(mi les)";  R2 


DATA  ENTERED: 


Site  of  incident: 
Latitude:  ";LAT;" 
Radius  of 
Radius  of 


"; SITE$ 
Longitude: 
total  destruction:  " 
impairment:  ";R2 


LON 


Rl 


•N" 


DATA  OK  (Y/N)";ANS$ 
THEN  5510: IF  ANS$<>"Y"  THEN  5580 


PRINT  #10,SITE$;","LAT;L0N;R1;R2 

CLS: PRINT: INPUT"D0  YOU  WANT  TO  ENTER  ANOTHER  SITE";AN$ 

IF  AN$="Y"  THEN  5510: IF  AN$<>"N"  THEN  5710 

CLOSE  #10 

GOTO  6160 

OPEN  "O\#10,"TEMPSITE" 

CLS 

PRINT" 

PRINT 

PRINT 

PRINT" 

PRINT" 

PRINT" 


NATURAL  OR  OTHER  DISASTER" 


Use  this  option  to  predict  damage" 
from  a  natural  disaster  or  other" 
manmade  disasters.   The  procedure" 
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5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 


PRINT"  uses  latitude  and  longitude  from 

PRINT"  two  points  to  calculate  impairment 

PRINT"  in  a  rectangular  area.   The  two 

PRINT"  points  used  are  the  upper  left 

PRINT"  corner  and  the  lower  right  corner. 

PRINT"  Enter  the  following  data  for  each 

PRINT"  incident." 

PRINT 

INPUT'press  RETURN  when  ready"; RET$ 

WIDTH  80:  CLS 

PRINT 

INPOT'SITE  OF  INCIDENT:  ";SITE$ 

PRINT 

Enter  Latitude  for  upper  left  corner: 
Enter  Longitude  for  upper  left  corner: 


;LAT1 
";L0N1 


Enter  Latitude  for  lower  right  corner: 
Enter  Longitude  for  lower  right  corner: 


DATA  ENTERED: " 

Site  of  incident:   " ; SITES 

Upper  left  corner  -  lat.:  "LAT1;"  Ion.: 

Lower  right  corner  -  lat.:  "LAT2;"  Ion. 


ii 


;LAT2 
";LON2 


"LON1 
"L0N2 


INPUT" 

INPUT" 

PRINT 

INPUT" 

INPUT" 

CLS 

PRINT 

PRINT 

PRINT" 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT 

INPUT"  DATA  OK  (Y  OR  N)";ANS$ 

IF  ANS$="N"  THEN  5920:  IF  ANS$<>"Y"  THEN  6010 

PRINT  #10, SITES;  V'LATl;  LON1;  LAT2;  LON2 

CLS: PRINT: INPUT"D0  YOU  WANT  TO  ENTER  ANOTHER  SITE";AN$ 

IF  AN$="Y"  THEN  5920:  IF  AN$<>"N"  THEN  6130 

CLOSE  #10 

CLS:  WIDTH  80 

PRINT 

PRINT 

PRINT 

PRINT"THE  FOLLOWING 

PRINT"ARE  AVAILABLE: 

PRINT 


SYSTEM 
ii 


OPTIONS" 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

INPUT" 

IF  0PT=8 


FTS 

AUTOVON 

AUTODIN 

MCI  Microwave 


5. 
6. 
7. 
8. 


MCI 
FAA 
All 


Fiber  Optics" 

HF  Radio  Network" 

Critical  Facilities" 


THEN  KILL 


ENTER 
"TEMPSITE" 


QUIT" 
OPTION  DESIRED  ";OPT 


s^ 


6300  IF  0PT=8  AND  ANSWER$<>""  THEN  KILL  "SITETEMP" 

6310  IF  0PT=8  THEN  4010 

6320  IF  0PT=2  THEN  6460 

6330  IF  OPT=l  THEN  6400 

6340  IF  OPT=3  THEN  6430 

6350  IF  0PT=4  THEN  6490 

6360  IF  0PT=5  THEN  6520 

6370  IF  OPT=6  THEN  6550 

6380  IF  OPT=7  THEN  6580 

6390  GOTO  6160 

6400  V$=DRV$  +  "FTSNODE" 

6410  TEM$="FTS" 

6420  GOTO  6600 

6430  V$=DRV$  +  "DINNODE" 

6440  TEM$="AUTODIN" 

6450  GOTO  6600 

6460  V$=DRV$  +  "VONNODE" 

6470  TEM$="AUTOVON" 

6480  GOTO  6600 

6490  V$=DRV$  +  "MCINODE" 

6500  TEM$="MCI  MW" 

6510  GOTO  6600 

6520  V$=DRV$  +  "MFONODE" 

6530  TEM$="MCI  FO" 

6540  GOTO  6600 

6550  V$=DRV$  +  "FAANODE" 

6560  TEM$="FAA  HF" 

6570  GOTO  6600 

6580  V$=DRV$  +  "CRITFAX" 

6590  TEM$="CRITICAL" 

6600  PRINT 

6610  CLS 

6620  PRINT 

6630  RESET 

6635  IF  DRV$>"B:"  THEN  6680 

6640  DISK$="  S-17  " 

6650  IF  0PT=2  OR  0PT=3  THEN  DISK$="  S-18  " 

6660  PRINT"ENTER  DISC  NO. ";DISK$; "IN  THE  " 

6670  INPUT'B-DRIVE  AND  ENTER  RETURN"; D$ 

6680  RESET 

6690  CLS 

6700  PRINT 

6710  PRINT 

6720  INPUT'WHICH  REGION  (1-10),  0  FOR  US  LEVEL"; R 

6730  IF  R>10  THEN  6720 

6740  IF  CH=2  THEN  6930 

6750  OPEN  ,T',#7,"TEMPSITE" 
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6760  OPEN  "0",#8,"SITETEMP" 

6770  IF  EOF(7)  THEN  6910 

6780  INPUT  #7,SITE$,LAT,L0N,R1,R2 

6790  OPEN  "I",#1,"CRITSCAL" 

6800  IF  EOF(l)  THEN  6850 

6810  INPUT  #1,SCA,REN 

6820  IF  REN<>R  THEN  6800 

6830  RS1=CINT(SCA*R1) 

6840  RS2=CINT(SCA*R2) 

6850  CLOSE  #1 

6860  G0SUB  2530 

6870  IF  R>10  THEN  R=R  MOD  10 

6880  XD=2*XD:YD=240-YD:  IF  SET=20  THEN  6770 

6890  PRINT  #8,SITE$;","LAT;L0N;R1;R2;RS1;RS2;XD;YD;SET 

6900  GOTO  6770 

6910  CLOSE 

6920  GOTO  7040 

6930  OPEN  "r,#8,"TEMPSITE" 

6940  OPEN  "0",#7,"SITETEMP" 

6950  IF  E0F(8)  THEN  7030 

6960  INPUT  #8,SITE$,LAT1,L0N1,LAT2,L0N2 

6970  LAT=LAT1:L0N=L0N1:G0SUB  2530 

6980  XD1=2*XD:YD1=240-YD: IF  SET=20  THEN  XD1=0: IF  SET=20  THEN  YD1=0 

6990  LAT=LAT2:L0N=L0N2:G0SUB  2530 

7000  XD2=2*XD:YD2=240-YD:IF  SET=20  THEN  XD2=639: IF  SET=20  THEN  YD2=249 

7010  PRINT  #7,SITE$;","XD1;YD1;XD2;YD2 

7020  GOTO  6950 

7030  CLOSE 

7040  WIDTH  40 

7050  PRINT 

7060  N$="RELAX" 

7070  GOSUB  1460 

7080  LOCATE  1 , 1: PRINT"STAND  BY  SYSTEM  PROCESSING" 

7090  COUNT=0 

7100  IF  CH=2  THEN  7380 

7110  OPEN  "r,#i,v$ 

7120  OPEN  "0",#2,DRV$  +  "TEMP" 

7130  IF  EOF(l)  THEN  7360 

7140  INPUT  #1, ROW, COL, A$,X5,Y5,X9,Y9, STAT, SYS$, NODE 

7150  IF  R=0  THEN  7180 

7160  N=NODE-INT(NODE/100)*100 

7170  IF  R<>N  THEN  7130 

7180  IF  ROW=0  OR  COL=0  THEN  7130 

7190  OPEN  "I",#6,"SITETEMP" 

7200  IF  E0F(6)  THEN  7330 

7210  INPUT  #6,SITE$,LAT,L0N,R1,R2,RS1,RS2,XD,YD,SET 

7220  IF  STAT=30  OR  STAT=31  THEN  7330 


v; 


7230  IF  R=0  THEN  D=SQR(((XD-X5)/2)  2+(YD-Y5)   2) 

7240  IF  R=0  THEN  7260 

7250  D=SQR(((XD-X9)/2)  2+(YD-Y9)   2) 

7260  QS=STAT-INT(STAT/10)*10 

7270  IF  D<=RS2  THEN  COUNT=l 

7280  IF  D<=RS1  AND  QS=0  THEN  STAT=30 

7290  IF  D<=RS1  AND  QS=1  THEN  STAT=31 

7300  IF  D<=RS2  AND  D>RS1  AND  QS=0  THEN  STAT=20 

7310  IF  D<=RS2  AND  D>RS1  AND  QS=1  THEN  STAT=21 

7320  GOTO  7200 

7330  CLOSE  #6 

7340  PRINT  #2,ROW;","COL;","A$;","X5;","Y5;","X9;","Y9;","STAT;","SYS$;",MNODE 

7350  GOTO  7130 

7360  CLOSE 

7370  GOTO  7580 

7380  OPEN  "I",#1,V$ 

7390  OPEN  "0",#2,DRV$  +  "TEMP" 

7400  IF  EOF(l)  THEN  7570 

7410  INPUT  #l,LAT,LON,A$,X5,Y5,X9,Y9, STAT, SYS$, NODE 

7420  IF  R=0  THEN  7450 

7430  N=NODE-INT(NODE/10O)*100 

7440  IF  N<>R  THEN  7400 

7450  IF  LAT=0  OR  LON=0  THEN  7400 

7460  OPEN  "I",#6,"TEMPSITE" 

7470  IF  EOF(6)  THEN  7540 

7480  INPUT  #6,SITE$,LAT1,L0N1,LAT2,L0N2 

7490  IF  LAT>LAT1  OR  LAT<LAT2  THEN  7540 

7500  IF  LON>LONl  OR  LON<LON2  THEN  7540 

7510  STAT=20 

7520  COUNT=l 

7530  GOTO  7470 

7540  CLOSE  #6 

7550  PRINT  #2,LAT;","LON;","A$;","X5;","Y5;","X9;","Y9;","STAT;M,"SYS$;","NODE 

7560  GOTO  7400 

7570  CLOSE 

7580  IF  COUNT=0  THEN  8820 

7590  OPEN  "I",#1,DRV$  +  "TEMP" 

7600  OPEN  "0\#2,DRV$  +  "CRITNODE" 

7610  IF  EOF(l)  THEN  7770 

7620  INPUT  #1, ROW, COL, A$,X5,Y5,X9,Y9, STAT, SYS$, NODE 

7630  IF  R<>0  THEN  7660 

7640  PRINT  #2,  11; " ,"X5; " ,"Y5; " ,"0; " ,"0; " ,"0 

7650  GOTO  7610 

7660  IF  STAT=30  OR  STAT=31  THEN  7700 

7670  IF  STAT=20  OR  STAT=21  THEN  7740 

7680  PRINT  #2,11;","X9;","Y9;\"0;","0;","0 

7690  GOTO  7610 
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7700  PRINT  #2,6;","X9-6;","Y9-3;\"0;","0;"," 

7710  PRINT  #2,15;","X9+6;","Y9+3;","0;","0;V*0 

7720  PRINT  #2,14;","X9;","Y9;","0;","0;","0 

7730  GOTO  7610 

7740  PRINT  #2,0;","X9;","Y9;","0;","0;","0 

7750  PRINT  #2,2;","X9;\"Y9;\"6;","0;","6.28 

7760  GOTO  7610 

7770  CLOSE 

7780  IF  R=0  THEN  N$="USAOUT.  TXT" 

7790  IF  R=l  THEN  N$=DRV$  +  "CRITR1" 

7800  IF  R=2  OR  R=22  THEN  N$=DRV$  +  "CRITR2" 

7810  IF  R=3  THEN  N$=DRV$  +  "CRITR3" 

7820  IF  R=4  THEN  N$=DRV$  +  "CRITR4" 

7830  IF  R=5  THEN  N$=DRV$  +  "CRITR5" 

7840  IF  R=6  THEN  N$=DRV$  +  "CRITR6" 

7850  IF  R=7  THEN  N$=DRV$  +  "CRITR7" 

7860  IF  R=8  THEN  N$=DRV$  +  MCRITR8" 

7870  IF  R=9  OR  R=99  THEN  N$=DRV$  +  "CRITR9" 

7880  IF  R=10  OR  R=101  THEN  N$=DRV$  +  "CRITR10" 

7890  SITE$="  " 

7900  IF  CH=2  THEN  7990 

7910  OPEN  'T'.tfVSITETEMP" 

7920  IF  E0F(4)  THEN  7970 

7930  IF  SITE$<>"  "  THEN  SITE$=SITE$+"  AND  " 

7940  INPUT  #4,NSITE$,LAT,L0N,R1,R2,RS1,RS2,XD,YD,SET 

7950  SITE$=SITE$+NSITE$ 

7960  GOTO  7920 

7970  CLOSE  #4 

7980  GOTO  8060 

7990  OPEN  "I,,,#4,"TEMPSITE" 

8000  IF  E0F(4)  THEN  8050 

8010  IF  SITE$<>"  "  THEN  SITE$=SITE$="  AND  " 

8020  INPUT  #4,NSITE$,LAT1,L0N1,LAT2,L0N2 

8030  SITE$=SITE$+NSITE$ 

8040  GOTO  8000 

8050  CLOSE  #4 

8060  CLS 

8070  WIDTH  80: SCREEN  2 

8090  PRINT  "         DAMAGE  TO  ";TEM$;"  COMMUNICATIONS  DUE  TO  INCIDENT(S)  AT" 

8100  PRINT  "         ";SITE$ 

8080  GOSUB  1460: LOCATE  1,1 

8110  N$=DRV$  +  "CRITNODE" 

8120  GOSUB  1460 

8130  IF  CH=2  THEN  8230 

8140  IF  SET  =  20  THEN  6600 

8150  OPEN  l,r,,#5,"SITETEMP" 

8160  IF  E0F(5)  THEN  8210 
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8170  INPUT  #5 , NS I TE$ , LAT , LON , R 1 , R2 , RS 1 , RS2 , XD , YD , SET 

8180  CIRCLE  (XD,YD),(RS1*2), ,0,6. 28,1/2 

8190  CIRCLE  (XD,YD),(RS2*2), ,0,6. 28,1/2 

8200  GOTO  8160 

8210  CLOSE  #5 

8220  GOTO  8290 

8230  OPEN  "I\#5,"SITETEMP" 

8240  IF  E0F(5)  THEN  8280 

8250  INPUT  #5,NSITE$,X1,Y1,X2,Y2 

8260  LINE  (X1,Y1)-(X2,Y2),,B 

8270  GOTO  8240 

8280  CLOSE  #5 

8290  LOCATE  23,1 

8300  INPUT"DO  YOU  WANT  TO  SEE  A  LISTING  OF  IMPAIRED  AND/OR  DAMAGED  FACILITIES? 

Y  OR  N";ANS$ 
8310  IF  ANS$="N"  THEN  8730 
8320  SCREEN  0: WIDTH  80:  COLOR  14,0,0 

8330  INPUT"ENTER  S  FOR  A  SCREEN  LISTING,  P  FOR  A  PAPER  LISTING"; LT$ 
8340  IF  LT$="P"  THEN  8570 
8350  CLS 

8360  PRINT"         DAMAGE  TO  ";TEM$;"  COMMUNICATIONS  DUE  TO  INCIDENT(S)  AT" 
8370  PRINT"         ";SITE$ 
8380  PRINT 
8390  PRINT"  LATITUDE     LONGITUDE    FACILITY        TYPE 

STATUS  CODE" 
8400  PRINT 
8410  K=0 

8420  OPEN  "I",#1,DRV$  +  "TEMP" 
8430  IF  EOF(l)  THEN  8530 

8440  INPUT  #1, ROW, COL, A$,X5,Y5,X9,Y9, STAT, SYS$, NODE 
8450  IF  INT(STAT/10)=1  THEN  8430 
8460  IF  INT(STAT/10)=2  THEN  PRINT  TAB(4); ROW; TAB(17); COL; TAB(28); A$; TAB(46); 

SYS$;TAB(57); "IMPAIRED"; TAB(70); NODE 
8470  IF  INT(STAT/10)=3  THEN  PRINT  TAB(4); ROW; TAB(17); COL; TAB(28); AS; TAB(46); 

SYS$;TAB(57); "DESTROYED"; TAB(70); NODE 
8480  K=K+1 

8490  IF  K=15  THEN  PRINT 

8500  IF  K=15  THEN  INPUT"ENTER  RETURN  TO  CONTINUE  ";C$ 
8510  IF  K=15  THEN  K=0 
8520  GOTO  8430 
8530  PRINT 

8540  INPUT"ENTER  RETURN  TO  CONTINUE"; C$ 
8550  CLOSE 

8560  IF  LT$="S"  THEN  8730 
8570  CLS 

8580  INPUT"P0SITI0N  PAPER  AND  ENTER  RETURN"; C$ 
8590  LPRINT"        DAMAGE  TO  ";TEM$;M  COMMUNICATIONS  DUE  TO  INCIDENT(S)  AT" 
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8600 
8610 
8620 

8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 

8710 
8720 
8730 
8740 

8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 


IF 
IF 
IF 
IF 
IF 


THEN 
THEN 
THEN 
THEN 
THEN 


"TEMPSITE" 
"SITETEMP" 


LPRINT"        "; SITES 
LPRINT 

LPRINT"  LATITUDE     LONGITUDE    FACILITY        TYPE 
STATUS   CODE" 
LPRINT 

OPEN  "I",#1,DRV$  +  "TEMP" 
IF  EOF(l)  THEN  8720 

INPUT  #1, ROW, COL, A$,X5,Y5,X9,Y9, STAT, SYS$, NODE 
IF  INT(STAT/10)=1  THEN  8650 
IF  INT(STAT/10)=2  THEN  STA$=" IMPAIRED" 
IF  INT(STAT/10)=3  THEN  STA$="DESTROYED" 

LPRINT  TAB(4);  ROW;  TAB( 17);  COL;  TAB(28);  A$;  TAB(46);  SYS$;  TAB(57);  STA$; 
TAB(70);NODE 
GOTO  8650 
CLOSE 

SCREEN  0: CLS: COLOR  14,0,0 

INPUT"REVIEW  <M>AP,  RETURN  TO  M<E>NU,  ANOTHER  <R>EGION,  OR  ANOTHER 
<S>YSTEM"; ANSWERS 
IF  ANSWER$="M"  THEN 

ANSWER$="E" 

ANSWER$="E" 

ANSWER$="E" 

ANSWER$="R" 

ANSWER$="S" 
GOTO  8740 
CLS:  WIDTH  40 
PRINT 
PRINT 

IF  R<>0  THEN  8920 

PRINT"THERE  ARE  NO  FACILITIES  DAMAGED  BY  THE" 
PRINT"INCIDENT(S)  AT  " 
PRINT"       ";SITE$ 
PRINT 

INPUT"ENTER  RETURN  TO  CONTINUE"; S$ 
GOTO  4010 

PRINT"  THERE  ARE  NO  FACILITIES  IN  REGION  ";R 
PRINT"  DAMAGED  BY  THE  INCIDENT(S)  AT" 
PRINT  SITE$ 
PRINT 

INPUT"ENTER  RETURN  TO  CONTINUE"; S$ 
GOTO  6160 
END 


7780 
KILL 
KILL 
4010 
6690 
6160 


Appendix  F 
NCSACT.BAS  Listing 


01  COMMON  DRV$ 

20  DIM  CODtS(100),S(100),KOUNT(100) 

30  DEFDBL  N,M,C:  LASTFILE$="  " 

35  GOTO  4000 

250  PAD$="         Main  Menu 

260  GOSUB  650 

270  TES=0 

280  GOSUB  580 


9Q(")  dcm****************************************** 

300  PRINT 

310  PRINT" 

1. 

P.O.  C.  Lists                 " 

320  PRINT" 

2. 

Emergency  Activation  Procedures  " 

330  PRINT" 

3. 

Network  Status  Monitoring       " 

340  PRINT" 

4. 

Damage  Assessment             " 

350  PRINT" 

5. 

Resolution  of  Claim           " 

360  PRINT" 

6. 

Zooming                     " 

370  PRINT" 

7. 

Word  Processing  (WordStar) 

380  PRINT" 

8. 

NSC  Processing  Module          " 

390  PRINT" 

9. 

QUIT                       " 

400  COLOR  : 

14,0, 

0: PRINT 

410  PRINT" 

ENTER  OPTION  DESIRED"; 

420  INPUT  T 

430  IF  T=6 

OR  T 

=7  THEN  460 

440  IF  T=LASTT 

THEN  4000 

450  LASTT=T 

460  PRINT 

470  WIDTH  80 

480  IF  T=l 

THEN 

CHAIN  "NCSPOC" 

490  IF  T=2 

THEN 

CHAIN  "NCSACT" 

500  IF  T=3 

THEN 

CHAIN  "NCSSTAT" 

510  IF  T=4 

THEN 

CHAIN  "NCSDAM" 

520  IF  T=5 

THEN 

CHAIN  "NCSCLAIM" 

530  IF  T=6 

THEN 

RUN  "NCSZOOM" 

540  IF  T=7 

THEN 

3400 

550  IF  T=8 

THEN 

CHAIN  "NCSNSC" 

560  IF  T=9 

THEN 

SYSTEM 

570  GOTO  250 
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580  LOCATE  10,4: PRINT"  DATE  ":  LOCATE  10,29: PRINT"  TIME  " 

600  LOCATE  11,2 

610  PRINT  DATES 

620  LOCATE  11,28 

630  PRINT  TIME$ 

640  RETURN 

ccn  DCM************************************************************* 

660  REM*  * 

670  REM*   This  Subroutine  produces  the  logo  box  for  the  menus.    * 

680  REM*  * 

690  rem*********** ****************************************** ******** 

700  SCREEN  0: WIDTH  40: CLS 

710  PRINT 

720  COLOR  14,1,0 

730  PRINT  CHR$(201); 

740  FOR  1=1  TO  36 

750  PRINT  CHR$(205); 

760  NEXT  I 

770  PRINT  CHR$(187) 

780  PRINT  CHR$(186); 

790  FOR  1=1  TO  36 

800  PRINT"  "; 

810  NEXT  I 

820  PRINT  CHR$(186) 

830  PRINT  CHR$(186); 

840  PRINT"      NCS  EMERGENCY  TELECOMM.       "; 

850  PRINT  CHR$(186) 

860  PRINT  CHR$(186); 

870  PRINT"         MICRO  SUBSYSTEM         "; 

880  PRINT  CHR$(186) 

890  PRINT  CHR$(186); 

900  PRINT  PAD$;: PRINT  CHR$(186) 

910  PRINT  CHR$(186); 

920  FOR  1=1  TO  36 

930  PRINT"  "; 

940  NEXT  I 

950  PRINT  CHR$(186) 

960  PRINT  CHR$(200); 

970  FOR  1=1  TO  36 

980  PRINT  CHR$(205); 

990  NEXT  I 

1000  PRINT  CHR$(188) 

1010  PAD$="   " 

1020  COLOR  14,1,0 

1030  RETURN 

1040  CLS: WIDTH  80 

1050  PRINT"THIS  OPTION  IS  NOT  YET  AVAILABLE." 


95 


1060  INPUT"PRESS  RETURN  FOR  MENU. ";RET$ 

1070  CLS 

1080  RETURN 

1090  REM********FI LE  READ****************'1'********* 

1100  SCREEN  0: CLS: WIDTH  80 

1110  IF  SET=0  THEN  1320 

1120  1=0 

1130  OPEN  "I",#1,X$ 

1140  IF  EOF(l)  THEN  1280 

1150  INPUT  #1,K$,A$ 

1160  IF  K$=PASS$  THEN  1180 

1170  GOTO  1140 

1180  1=1+1 

1190  IF  I>=20  THEN  1220 

1200  PRINT  A$ 

1210  GOTO  1140 

1220  PRINT 

1230  INPUT"ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT";C$ 

1240  IF  C$="Q"  THEN  1280 

1250  PRINT 

1260  1=0 

1270  GOTO  1140 

1280  CLOSE 

1290  PRINT 

1300  INPUT"ENTER  RETURN  TO  CONTINUE  ";R$ 

1310  GOTO  1450 

1320  OPEN  "r\#l,X$ 

1330  FOR  1=1  TO  20 

1340  LINE  INPUT  #1,A$ 

1350  IF  EOF(l)  THEN  1420 

1360  PRINT  A$ 

1370  NEXT  I 

1380  PRINT 

1390  INPUV'ENTER  C  TO  CONTINUED  TO  QUIT";B$ 

1400  IF  B$<>"C"  AND  B$<>"Q"  THEN  1390 

1410  IF  B$="C"  THEN  1330 

1420  PRINT 

1430  INPUT"  PRESS  RETURN  WHEN  READY"; M$ 

1440  CLOSE  #1 

1450  RETURN 

1460  DpM************ FT  I  p  Dl  QT***** *********** 

1470  WIDTH  80: SCREEN  2:  WINDOW  SCREEN  (0,0)-(640,250) 

1480  OPEN  "I",#1,N$ 

1490  IF  EOF(l)  THEN  2510 

1500  INPUT  #1,C,X,Y,Z,S,E 

1510  IF  C=0  THEN  1760  REM  **POINT 

1520  IF  C=l  THEN  1780  REM  **LINE 
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1530  IF  C=2  THEN  1800  REM  **CIRCLE 

1540  IF  C=3  THEN  1820  REM  **CLEAR  SCREEN 

1550  IF  C=4  THEN  1840  REM  **CLEAR  POINT 

1560  IF  C=5  THEN  1860  REM  **CLEAR  CENTER  OF  CIRCLE 

1570  IF  C=6  THEN  1880  REM  **BOX(UPPER  LEFT  CORNER) 

1580  IF  C=7  THEN  1910  REM  **BOX  (LOWER  RIGHT  CORNER) 

1590  IF  C=8  THEN  1930  REM  **SATELLITE 

1600  IF  C=9  THEN  1990  REM  **STAR 

1610  IF  C=10  THEN  2020  REM  **EARTH  STATION 

1620  IF  C=ll  THEN  2050  REM  **CITY  (BOX) 

1630  IF  C=12  THEN  2070  REM  **REMOVE  CENTER  OF  CIRCLE 

1640  IF  C=13  THEN  2090  REM  **TELEPHONE  SET 

1650  IF  C=14  THEN  2120  REM  **SET  UP  BLOCK  FILLER 

1660  IF  C=15  THEN  2140  REM  """CREATES  A  FILLED  BLOCK 

1670  IF  C=16  THEN  2160  REM  **CREATES  A  TRIANGLE 

1680  IF  C=17  THEN  2200  REM  **CREATES  A  BIG  TRIANGLE 

1690  IF  C=18  THEN  2260  REM  **CREATES  A  DIAMOND 

1700  IF  C=19  THEN  2320  REM  **CREATES  A  LARGE  BOX 

1710  IF  C=20  THEN  2340  REM  **WISHBONE 

1720  IF  C=21  THEN  2410  REM  **ASTERISK 

1730  IF  C=22  THEN  2460  REM  **AN  X 

1740  IF  C=23  THEN  2490  REM  **A  DASHED  LINE 

1750  GOTO  1490 

1760  PSET  (X,Y) 

1770  GOTO  1490 

1780  LINE  -(X,Y) 

1790  GOTO  1490 

1800  CIRCLE(X,Y),Z,,S,E, 13/32 

1810  GOTO  1490 

1820  CLS 

1830  GOTO  1490 

1840  CLS 

1850  GOTO  1490 

1860  CLS 

1870  GOTO  1490 

1880  X1=X 

1890  Y1=Y 

1900  GOTO  1490 

1910  LINE  (X1,Y1)-(X,Y),,B 

1920  GOTO  1490 

1930  CIRCLE  (X,Y),10, ,0,6. 28,1/2 

1940  LINE  (X-20,Y)-(X-10,Y) 

1950  LINE  (X,Y-5)-(X,Y-10) 

1960  LINE  (X+10,Y)-(X+20,Y) 

1970  LINE  (X,Y+5)-(X,Y+10) 

1980  GOTO  1490 

1990  LINE  (X,Y-2)-(X-4,Y+2):LINE  -(X+4.Y-1) 
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2000  LINE  ( 

X,Y-2)-(X+4,Y+2):LINE  -(X-4.Y-1):  LINE  -(X 

2010  GOTO  ] 

.490 

2020  LINE  ( 

X,Y)-(X+10,Y-10):  LINE  -(X+20.Y): LINE  -(X, 

2030  CIRCLE 

[  (X+20,Y-15),14,,2.36,5.5 

2040  GOTO  ] 

.490 

2050  LINE  ( 

X-2,Y-1)-(X+2,Y+1),,B 

2060  GOTO  ] 

.490 

2070  CLS 

2080  GOTO  1 

.490 

2090  LINE  ( 

X,Y)-(X+12,Y):LINE  -(X+6.Y-6): LINE  -(X,Y) 

2100  CIRCLE 

[  (X+6,Y-6),6,,0,3.14 

2110  GOTO  ] 

.490 

2120  PAINT 

(X,Y),1 

2130  GOTO  ] 

.490 

2140  LINE  ( 

X1,Y1)-(X,Y),,B 

2150  GOTO  ] 

.490 

2160  LINE  ( 

X-2,Y)-(X+2,Y) 

2170  LINE  ( 

X-4,Y+1)-(X+4,Y+1) 

2180  PSET  ( 

X.Y-1) 

2190  GOTO  ] 

L490 

2200  PSET  ( 

X.Y-2) 

2210  LINE  ( 

X-2,Y-1)-(X+2,Y-1) 

2220  LINE  ( 

X-4,Y)-(X+4,Y) 

2230  LINE  ( 

X-6,Y+1)-(X+6,Y+1) 

2240  LINE  ( 

X-8,Y+2)-(X+8,Y+2) 

2250  GOTO  ] 

1490 

2260  PSET  ( 

X,Y) 

2270  PSET  ( 

X"2,Y) 

2280  PSET  ( 

X+2,Y) 

2290  PSET  ( 

X.Y-1) 

2300  PSET  ( 

:x,y+i) 

2310  GOTO  : 

1490 

2320  LINE  ( 

X-4,Y-2)-(X+4,Y+2),,B 

2330  GOTO  : 

L490 

2340  PSET  ( 

;X,Y-2) 

2350  PSET  ( 

;x,y-i) 

2360  PSET  ( 

;x,y) 

2370  LINE  ( 

;X-2,Y+1)-(X+2,Y+1) 

2380  PSET  ( 

'X-4,Y+2) 

2390  PSET  ( 

X+4.Y+2) 

2400  GOTO  ' 

L490 

2410  LINE  I 

X+4,Y-2)-(X-4,Y+2) 

2420  LINE  1 

'X-4,Y-2)-(X+4,Y+2) 

2430  LINE  1 

'X-4,Y)-(X+4,Y) 

2440  LINE  1 

;X,Y+2)-(X,Y-2) 

2450  GOTO 

1490 

2460  LINE  1 

;X+4,Y-2)-(X-4,Y+2) 
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2470  LINE  (X-4,Y-2)-(X+4,Y+2) 

2480  GOTO  1490 

2490  LINE-(X,Y),,,50.  386 

2500  GOTO  1490 

2510  CLOSE 

2520  RETURN 

2530  dpm*************|AT/LONG** ***************** 

2540  REM  CLS 

2550  REGION=R 

2560  SET=0 

2570  OPEN  "I", #1, "BOUNDARY" 

2580  IF  EOF(l)  THEN  GOTO  2610 

2590  INPUT  #1,LATD,LATU,L0NR,L0NL,REG 

2600  IF  REGION<>REG  THEN  2580 

2610  CLOSE  #1 

2620  IF  LAT>LATU  OR  LAT<LATD  THEN  2650 

2630  IF  L0N>L0NL  OR  LON<LONR  THEN  2650 

2640  GOTO  2680 

2650  IF  REGION>10  THEN  3380 

2660  REGI0N=R+(R*10) 

2670  GOTO  2570 

2680  OPEN  "I",#2,"LATFILE" 

2690  LA1=0 

2700  IF  EOF(2)  THEN  2810 

2710  INPUT  #2,  LA,  YVAL.REG 

2720  IF  REGION<>REG  THEN  2700 

2730  IF  LAT<=LA1  AND  LAT>=LA  THEN  2770 

2740  LA1=LA 

2750  YVAL1=YVAL 

2760  GOTO  2700 

2770  YL0W=YVAL 

2780  YHI=YVAL1 

2790  LATL0W=LA 

2800  LATHI=LA1 

2810  CLOSE  #2 

2820  OPEN  "I",#l,"LONFILE" 

2830  LON1=0 

2840  IF  E0F(1)  THEN  2920 

2850  INPUT  #1,L0,C1,C2,REG 

2860  IF  REGIONoREG  THEN  2840 

2870  IF  L0N<=L0N1  AND  L0N>=L0  THEN  2920 

2880  L0N1=L0 

2890  C11=C1 

2900  C21=C2 

2910  GOTO  2840 

2920  CLOSE  #1 

2930  IF  R=0  THEN  3070 
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2940  XLEFTU=YHI/C11+C21 

2950  XLEFTD=YL0W/C11+C21 

2960  XRITEU=YHI/C1+C2 

2970  XRITED=YL0W/C1+C2 

2980  L1=XRITEU-XLEFTU 

2990  L2=XRITED-XLEFTD 

3000  G=(L0N1-L0N)/(L0N1-L0) 

3010  XL=G*L2+XLEFTD 

3020  XU=G*L1+XLEFTII 

3030  D=(LAT-LATLOW)/(LATHI-LATLOW) 

3040  XD=CINT(XI_-D*(XL-XU)) 

3050  YD=CINT(D*(YHI-YLOW)+YLOW) 

3060  GOTO  3390 

3070  RAD(l)=YLOW 

3080  RAD(2)=YHI 

3090  C1(1)=C11 

3100  C2(1)=C21 

3110  C1(2)=C1 

3120  C2(2)=C2 

3130  FOR  1=1  TO  2 

3140  K=0 

3150  IF  1=1  THEN  S=l 

3160  IF  1=2  THEN  S=3 

3170  FOR  J=S  TO  S+l 

3180  K=K+1 

3190  A=1/(C1(K)   2)  +  l 

3200  B=2*(174-C2(K))/C1(K)+2*514 

3210  C=(174-C2(K))     2-RAD(I)    2+514  2 

3220  Y1=(B+SQR(B  2-4*A*C))/(2*A) 

3230  Y2=(B-SQR(B  2-4*A*C))/(2*A) 

3240  IF  Yl>235  THEN  Y(J)=Y2 

3250  IF  Yl<=235  THEN  Y(J)=Y1 

3260  X(J)=Y(J)/C1(K)+C2(K) 

3270  NEXT  J 

3280  NEXT  I 

3290  DVAL=(L0N1-L0N)/(L0N1-L0) 

3300  XL=DVAL*(X(2)-X(1))+X(1) 

3310  YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320  XU=DVAL*(X(4)-X(3))+X(3) 

3330  YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340  SVAL=( LAT-LATLOW)/( LATHI-LATLOW) 

3350  XD=CINT(XL-SVAL*(XL-XU)) 

3360  YD=CINT(YL+SVAL*(YU-YL)) 

3370  GOTO  3390 

3380  SET=20 

3390  RETURN 

3400  CLS: WIDTH  80 
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3410 
3420 
3430 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4175 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 


SHELL  "WS 
CLS 

GOTO  250 
REM 


*********************************************************** 


Emergency  Activation  Procedure 


PAD$=" 

GOSUB  650 

TES=0 

GOSUB  580 

PRINT 

PRINT"1. 

PRINT"2. 

PRINT"3. 

PRINT"4. 

PRINT"5. 

PRINT" 

PRINT"6. 

PRINT 

COLOR  14,0,0: PRINT" 

INPUT  M: COLOR  15 

CLS 

IF  M=6  THEN  250 

IF  DRV$>"B:"  THEN  4200 

PRINT"ENTER  DISC  NO.  18 

INPUT"B-DRIVE  AND  ENTER 

WIDTH  80 


Conditions  for  Activation  of  the  NCS 
OSTP  Telecommunications  Orders 
NCS  Telecommunications  Instructions 
NCS  Emergency  Recall  List 
Activation/Deployment  Procedures 
for  Emergency  Management  Teams 
QUIT 


ENTER  OPTION  DESIRED 


IN  THE  ' 
RETURN": 


B$ 


IF 
IF 
IF 
IF 
IF 
IF 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


M=l 

M=2 

M=3 

M=4 

M=5 

M=6 
GOTO  4010 
NUM=0 
CLS 

X$=DRV$  + 
SET=0 

GOSUB  1090 
GOTO  4000 
END 


4280 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

250 


1040 
1040 
1040 
1040 


■CONDACTN" 


Appendix  G 
NCSNSC.BAS  Listing 


01  COMMON  DRV$ 

20  DIM  CODES(100),S(100),KOUNT(100) 

30  DEFDBL  N,M,C:  LASTFILE$="  " 

35  GOTO  4000 

250  PAD$="         Main  Menu 

260  GOSUB  650 

270  TES=0 


280  GOSUB  i 

>80 

290  rpm* ******************************* ********** 

300  PRINT 

310  PRINT" 

1. 

P.O.  C.  Lists                 " 

320  PRINT" 

2. 

Emergency  Activation  Procedures  " 

330  PRINT" 

3. 

Network  Status  Monitoring       " 

340  PRINT" 

4. 

Damage  Assessment             " 

350  PRINT" 

5. 

Resolution  of  Claim           " 

360  PRINT" 

6. 

Zooming                     " 

370  PRINT" 

7. 

Word  Processing  (WordStar) 

380  PRINT" 

8. 

NSC  Processing  Module 

390  PRINT" 

9. 

QUIT                        " 

400  COLOR 

14,0, 

0: PRINT 

410  PRINT" 

ENTER  OPTION  DESIRED"; 

420  INPUT  " 

r 

430  IF  T=6 

OR  T 

=7   THEN  460 

440  IF  T=LASTT 

THEN  4000 

450  LASTT=' 

r 

460  PRINT 

470  WIDTH  1 

30 

480  IF  T=l 

THEN 

CHAIN  "NCSPOC" 

490  IF  T=2 

THEN 

CHAIN  "NCSACT" 

500  IF  T=3 

THEN 

CHAIN  "NCSSTAT" 

510  IF  T=4 

THEN 

CHAIN  "NCSDAM" 

520  IF  T=5 

THEN 

CHAIN  "NCSCLAIM" 

530  IF  T=6 

THEN 

RUN  "NCSZOOM" 

540  IF  T=7 

THEN 

3400 

550  IF  T=8 

THEN 

CHAIN  "NCSNSC" 

560  IF  T=9 

THEN 

SYSTEM 

570  GOTO  250 

101 


102 


580  LOCATE  10,4:  PRINT"  DATE  ".-LOCATE  10,29:  PRINT"  TIME  " 

600  LOCATE  11,2 

610  PRINT  DATE$ 

620  LOCATE  11,28 

630  PRINT  TIME$ 

640  RETURN 

ccn  dcm************************************************************* 

660  REM*  * 

670  REM*   This  Subroutine  produces  the  logo  box  for  the  menus. 

680  REM*  * 

con  p  cm** ***************************************************  ******** 

700  SCREEN  0: WIDTH  40:  CLS 

710  PRINT 

720  COLOR  14,1,0 

730  PRINT  CHR$(201); 

740  FOR  1=1  TO  36 

750  PRINT  CHR$(205); 

760  NEXT  I 

770  PRINT  CHR$(187) 

780  PRINT  CHR$(186); 

790  FOR  1=1  TO  36 

800  PRINT"  "; 

810  NEXT  I 

820  PRINT  CHR$(186) 

830  PRINT  CHR$(186); 

840  PRINT"     NCS  EMERGENCY  TELECOMM.      "; 

850  PRINT  CHR$(186) 

860  PRINT  CHR$(186); 

870  PRINT"         MICRO  SUBSYSTEM         "; 

880  PRINT  CHR$(186) 

890  PRINT  CHR$(186); 

900  PRINT  PAD$;: PRINT  CHR$(186) 

910  PRINT  CHR$(186); 

920  FOR  1=1  TO  36 

930  PRINT"  "; 

940  NEXT  I 

950  PRINT  CHR$(186) 

960  PRINT  CHR$(200); 

970  FOR  1=1  TO  36 

980  PRINT  CHR$(205); 

990  NEXT  I 

1000  PRINT  CHR$(188) 

1010  PAD$="   " 

1020  COLOR  14,1,0 

1030  RETURN 

1040  CLS: WIDTH  80 

1050  PRINT"THIS  OPTION  IS  NOT  YET  AVAILABLE." 
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1060  INPUT'PRESS  RETURN  FOR  MENU.  ";RET$ 

1070  CLS 

1080  RETURN 

1090  R£M********FI IF  RFAD************************** 

1100  SCREEN  0: CLS: WIDTH  80 

1110  IF  SET=0  THEN  1320 

1120  1=0 

1130  OPEN  "I",#1,X$ 

1140  IF  EOF(l)  THEN  1280 

1150  INPUT  #1,K$,A$ 

1160  IF  K$=PASS$  THEN  1180 

1170  GOTO  1140 

1180  1=1+1 

1190  IF  I>=20  THEN  1220 

1200  PRINT  A$ 

1210  GOTO  1140 

1220  PRINT 

1230  INPUT"ENTER  C  TO  CONTINUE  OR  Q  TO  QUIT";C$ 

1240  IF  C$="Q"  THEN  1280 

1250  PRINT 

1260  1=0 

1270  GOTO  1140 

1280  CLOSE 

1290  PRINT 

1300  INPUT"ENTER  RETURN  TO  CONTINUE  ";R$ 

1310  GOTO  1450 

1320  OPEN  "I",#1,X$ 

1330  FOR  1=1  TO  20 

1340  LINE  INPUT  #1,A$ 

1350  IF  EOF(l)  THEN  1420 

1360  PRINT  A$ 

1370  NEXT  I 

1380  PRINT 

1390  INPUT"ENTER  C  TO  CONTINUED  TO  QUIT";B$ 

1400  IF  B$<>"C"  AND  B$<>"Q"  THEN  1390 

1410  IF  B$="C"  THEN  1330 

1420  PRINT 

1430  INPUT"  PRESS  RETURN  WHEN  READY"; M$ 

1440  CLOSE  #1 

1450  RETURN 

1460  RFM************FI I P  PL OT**************** 

1470  WIDTH  80: SCREEN  2:  WINDOW  SCREEN  (0,0)-(640,250) 

1480  OPEN  "I",#1,N$ 

1490  IF  EOF(l)  THEN  2510 

1500  INPUT  #1,C,X,Y,Z,S,E 

1510  IF  C=0  THEN  1760  REM  **POINT 

1520  IF  C=l  THEN  1780  REM  **LINE 
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1530  IF  C=2  THEN  1800  REM  **CIRCLE 

1540  IF  C=3  THEN  1820  REM  **CLEAR  SCREEN 

1550  IF  C=4  THEN  1840  REM  **CLEAR  POINT 

1560  IF  C=5  THEN  1860  REM  **CLEAR  CENTER  OF  CIRCLE 

1570  IF  C=6  THEN  1880  REM  **BOX(UPPER  LEFT  CORNER) 

1580  IF  C=7  THEN  1910  REM  **B0X  (LOWER  RIGHT  CORNER) 

1590  IF  C=8  THEN  1930  REM  **SATELLITE 

1600  IF  C=9  THEN  1990  REM  **STAR 

1610  IF  C=10  THEN  2020  REM  **EARTH  STATION 

1620  IF  C=ll  THEN  2050  REM  **CITY  (BOX) 

1630  IF  C=12  THEN  2070  REM  **REM0VE  CENTER  OF  CIRCLE 

1640  IF  C=13  THEN  2090  REM  """TELEPHONE  SET 

1650  IF  C=14  THEN  2120  REM  **SET  UP  BLOCK  FILLER 

1660  IF  C=15  THEN  2140  REM  **CREATES  A  FILLED  BLOCK 

1670  IF  C=16  THEN  2160  REM  **CREATES  A  TRIANGLE 

1680  IF  C=17  THEN  2200  REM  **CREATES  A  BIG  TRIANGLE 

1690  IF  C=18  THEN  2260  REM  **CREATES  A  DIAMOND 

1700  IF  C=19  THEN  2320  REM  **CREATES  A  LARGE  BOX 

1710  IF  C=20  THEN  2340  REM  **WISHBONE 

1720  IF  C=21  THEN  2410  REM  **ASTERISK 

1730  IF  C=22  THEN  2460  REM  **AN  X 

1740  IF  C=23  THEN  2490  REM  **A  DASHED  LINE 

1750  GOTO  1490 

1760  PSET  (X,Y) 

1770  GOTO  1490 

1780  LINE  -(X,Y) 

1790  GOTO  1490 

1800  CIRCLE(X,Y),Z,,S,E, 13/32 

1810  GOTO  1490 

1820  CLS 

1830  GOTO  1490 

1840  CLS 

1850  GOTO  1490 

1860  CLS 

1870  GOTO  1490 

1880  X1=X 

1890  Y1=Y 

1900  GOTO  1490 

1910  LINE  (X1,Y1)-(X,Y),,B 

1920  GOTO  1490 

1930  CIRCLE  (X,Y),10, ,0,6. 28,1/2 

1940  LINE  (X-20,Y)-(X-10,Y) 

1950  LINE  (X,Y-5)-(X,Y-10) 

1960  LINE  (X+10,Y)-(X+20,Y) 

1970  LINE  (X,Y+5)-(X,Y+10) 

1980  GOTO  1490 

1990  LINE  (X,Y-2)-(X-4,Y+2):LINE  -(X+4.Y-1) 
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2000  LINE  ( 

X,Y-2)-(X+4,Y+2):LINE  -(X-4,Y-1): LINE  -(X 

2010  GOTO  ] 

.490 

2020  LINE  ( 

X,Y)-(X+10,Y-10):LINE  -(X+20.Y):  LINE  -(X, 

2030  CIRCLE 

!  (X+20,Y-15),14,,2.36,5.5 

2040  GOTO  ] 

.490 

2050  LINE  ( 

X-2,Y-1)-(X+2,Y+1),,B 

2060  GOTO  ] 

.490 

2070  CLS 

2080  GOTO  ] 

.490 

2090  LINE  ( 

X,Y)-(X+12,Y):  LINE  -(X+6.Y-6): LINE  -(X,Y) 

2100  CIRCLE 

!  (X+6,Y-6),6,,0,3. 14 

2110  GOTO  ] 

.490 

2120  PAINT 

(X,Y),1 

2130  GOTO  ] 

.490 

2140  LINE  ( 

X1,Y1)-(X,Y),,B 

2150  GOTO  ] 

.490 

2160  LINE  ( 

X-2,Y)-(X+2,Y) 

2170  LINE  ( 

X-4,Y+1)-(X+4,Y+1) 

2180  PSET  ( 

X.Y-1) 

2190  GOTO  ] 

L490 

2200  PSET  ( 

X.Y-2) 

2210  LINE  ( 

X-2,Y-1)-(X+2,Y-1) 

2220  LINE  ( 

X-4,Y)-(X+4,Y) 

2230  LINE  ( 

X-6,Y+1)-(X+6,Y+1) 

2240  LINE  ( 

X-8,Y+2)-(X+8,Y+2) 

2250  GOTO  : 

1490 

2260  PSET  ( 

X,Y) 

2270  PSET  ( 

X-2.Y) 

2280  PSET  ( 

X+2,Y) 

2290  PSET  ( 

:x,Y-n 

2300  PSET  ( 

;x,y+i) 

2310  GOTO  : 

1490 

2320  LINE  ( 

'X-4,Y-2)-(X+4,Y+2),,B 

2330  GOTO 

1490 

2340  PSET  1 

■X.Y-2) 

2350  PSET  1 

:x,y-d 

2360  PSET  1 

:x,y) 

2370  LINE  1 

;X-2,Y+1)-(X+2,Y+1) 

2380  PSET  1 

;x-4,y+2) 

2390  PSET  1 

;X+4,Y+2) 

2400  GOTO 

1490 

2410  LINE  1 

;x+4,Y-2)-(X-4,Y+2) 

2420  LINE  I 

;X-4,Y-2)-(X+4,Y+2) 

2430  LINE  1 

:X-4,Y)-(X+4,Y) 

2440  LINE  1 

;X,Y+2)-(X,Y-2) 

2450  GOTO 

1490 

2460  LINE 

;X+4,Y-2)-(X-4,Y+2) 
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2470  LINE  (X-4,Y-2)-(X+4,Y+2) 

2480  GOTO  1490 

2490  LINE-(X.Y), ,,50. 386 

2500  GOTO  1490 
2510  CLOSE 
2520  RETURN 


2530  RFM*************LAT /LONG ********** 

2540  REM  CLS 

2550  REGION=R 

2560  SET=0 

2570  OPEN  "I", #1, "BOUNDARY" 

2580  IF  EOF(l)  THEN  GOTO  2610 

2590  INPUT  #1,LATD,LATU,L0NR,L0NL, 

,REG 

2600  IF  REGI0N<>REG  THEN  2580 

2610  CLOSE  #1 

2620  IF  LAT>LATU  OR  LAT<LATD  THEN 

2650 

2630  IF  L0N>L0NL  OR  L0N<L0NR  THEN 

2650 

2640  GOTO  2680 

2650  IF  REGI0N>10  THEN  3380 

2660  REGI0N=R+(R*10) 

2670  GOTO  2570 

2680  OPEN  "I",#2,"LATFILE" 

2690  LA1=0 

2700  IF  E0F(2)  THEN  2810 

2710  INPUT  #2,  LA,  YVAL,REG 

2720  IF  REGION<>REG  THEN  2700 

2730  IF  LAT<=LA1  AND  LAT>=LA  THEN 

2770 

2740  LA1=LA 

2750  YVAL1=YVAL 

2760  GOTO  2700 

2770  YL0W=YVAL 

2780  YHI=YVAL1 

2790  LATL0W=LA 

2800  LATHI=LA1 

2810  CLOSE  #2 

2820  OPEN  'T»,#1,"L0NFILE" 

2830  L0N1=0 

2840  IF  E0F(1)  THEN  2920 

2850  INPUT  #1,L0,C1,C2,REG 

2860  IF  REGION<>REG  THEN  2840 

2870  IF  L0N<=L0N1  AND  L0N>=L0  THEN  2920 

2880  L0N1=L0 

2890  C11=C1 

2900  C21=C2 

2910  GOTO  2840 

2920  CLOSE  #1 

2930  IF  R=0  THEN  3070 
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2940  XLEFTU=YHI/C11+C21 

2950  XLEFTD=YL0W/C11+C21 

2960  XRITEU=YHI/C1+C2 

2970  XRITED=YL0W/C1+C2 

2980  L1=XRITEU-XLEFTU 

2990  L2=XRITED-XLEFTD 

3000  G=(L0N1-L0N)/(L0N1-L0) 

3010  XL=G*L2+XLEFTD 

3020  XU=G*L1+XLEFTU 

3030  D=(LAT-LATL0W)/(LATHI-LATL0W) 

3040  XD=CINT(XL-D*(XL-XU)) 

3050  YD=CINT(D*(YHI-YL0W)+YL0W) 

3060  GOTO  3390 

3070  RAD(1)=YL0W 

3080  RAD(2)=YHI 

3090  C1(1)=C11 

3100  C2(1)=C21 

3110  C1(2)=C1 

3120  C2(2)=C2 

3130  FOR  1=1  TO  2 

3140  K=0 

3150  IF  1=1  THEN  S=l 

3160  IF  1=2  THEN  S=3 

3170  FOR  J=S  TO  S+l 

3180  K=K+1 

3190  A=1/(C1(K)   2)+l 

3200  B=2*(174-C2(K))/C1(K)+2*514 

3210  C=(174-C2(K))     2-RAD(I)    2+514  2 

3220  Y1=(B+SQR(B  2-4*A*C))/(2*A) 

3230  Y2=(B-SQR(B  2-4*A*C))/(2*A) 

3240  IF  Yl>235  THEN  Y(J)=Y2 

3250  IF  Yl<=235  THEN  Y(J)=Y1 

3260  X(J)=Y(J)/C1(K)+C2(K) 

3270  NEXT  J 

3280  NEXT  I 

3290  DVAL=(L0N1-L0N)/(L0N1-L0) 

3300  XL=DVAL*(X(2)-X(1))+X(1) 

3310  YL=DVAL*(Y(2)-Y(1))+Y(1) 

3320  XU=DVAL*(X(4)-X(3))+X(3) 

3330  YU=DVAL*(Y(4)-Y(3))+Y(3) 

3340  SVAL=( LAT-LATLOW)/( LATHI-LATLOW) 

3350  XD=CINT(XL-SVAL*(XL-XU)) 

3360  YD=CINT(YL+SVAL*(YU-YL)) 

3370  GOTO  3390 

3380  SET=20 

3390  RETURN 

3400  CLS: WIDTH  80 
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3410 

SHELL  "WS 

3420 

CLS 

3430 

GOTO  250 

4000 

D CM ****************************** * 

4010 

PAD$="      NSC  Processing  Module       " 

4020 

GOSUB  650 

4030 

TES=0 

4040 

GOSUB  580 

4050 

PRINT 

4060 

PRINT 

4070 

PRINT"                               " 

4080 

PRINT"    Disks  for  this  module  provided    " 

4090 

PRINT"    by  NSC  Staff.   Insert  disk  in     " 

4100 

PRINT"    B-Drive  and  enter  RETURN,  or     " 

4110 

PRINT"    enter  a  Q  to  Quit.             " 

4120 

PRINT 

4130 

COLOR  15: INPUT"  ENTER  OPTION  DESIRED  ";T$: COLOR 

4140 

IF  T$<>"Q"  THEN  4000:  CLS 

4150 

GOTO  250 

15 
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